home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 351-375 / 354 / mxmlib / mxm.c < prev    next >
C/C++ Source or Header  |  1995-03-14  |  57KB  |  2,257 lines
  1. /* $Revision Header *** Header built automatically - do not edit! ***********
  2.  *
  3.  *    (C) Copyright 1990 by MXM
  4.  *
  5.  *    Name .....: MXM.c
  6.  *    Created ..: Saturday 06-Jan-90 23:29
  7.  *    Revision .: 14
  8.  *
  9.  *    Date            Author          Comment
  10.  *    =========       ========        ====================
  11.  *    01-Apr-90    Olsen        Rework for Aztec 5.0
  12.  *    25-Feb-90    Olsen        Static data thingy debugged
  13.  *    15-Feb-90    Olsen        Minor changes
  14.  *    08-Feb-90    Olsen        Functions removed, added CRC,
  15.  *                    some bugs kicked out
  16.  *    14-Jan-90    Olsen        Added new functions,
  17.  *                    extended CryptBlock(),
  18.  *                    changed name to mxm.library
  19.  *    09-Jan-90       Olsen           Extended PopRequest
  20.  *    08-Jan-90       Olsen           Sorted functions
  21.  *    08-Jan-90       Olsen           Added timer commands
  22.  *    08-Jan-90       Olsen           Added printer commands
  23.  *    07-Jan-90       Olsen           - Empty log message -
  24.  *    07-Jan-90       Olsen           - Empty log message -
  25.  *    06-Jan-90       Olsen           - Empty log message -
  26.  *    06-Jan-90       Olsen           - Empty log message -
  27.  *    06-Jan-90       Olsen           Created this file!
  28.  *
  29.  * $Revision Header ********************************************************/
  30.  #define REVISION 14
  31.  
  32. extern struct IntuitionBase *IntuitionBase;
  33.  
  34. LONG Revision = REVISION;
  35.  
  36. VOID *
  37. AllocRem(ByteSize,Requirements)
  38. LONG ByteSize,Requirements;
  39. {
  40.     struct MXMBase *MXMBase;
  41.  
  42.     LONG *MemoryBlock = NULL;
  43.     LONG RemSize = ByteSize + 4;
  44.  
  45.     if(ByteSize > 0)
  46.         MemoryBlock = (LONG *)AllocMem(RemSize,Requirements);
  47.  
  48.     if(MemoryBlock)
  49.         *MemoryBlock++ = RemSize;
  50.  
  51.     return((VOID *)MemoryBlock);
  52. }
  53.  
  54. VOID *
  55. FreeRem(MemoryBlock)
  56. UBYTE *MemoryBlock;
  57. {
  58.     struct MXMBase *MXMBase;
  59.  
  60.     if(MemoryBlock)
  61.     {
  62.         MemoryBlock -= 4;
  63.         FreeMem(MemoryBlock,*((LONG *)MemoryBlock));
  64.     }
  65.  
  66.     return(NULL);
  67. }
  68.  
  69. struct Task *
  70. CreateFuncTask(TaskName,Priority,InitialPC,StackSize)
  71. char *TaskName;
  72. LONG Priority;
  73. APTR InitialPC;
  74. ULONG StackSize;
  75. {
  76.     struct MXMBase *MXMBase;
  77.  
  78.     ULONG DataSize = (StackSize & 0xFFFFFC) + 1;
  79.  
  80.     struct Task *NewTask;
  81.     char *PublicName;
  82.  
  83.     if(!TaskName || !InitialPC || !StackSize || Priority < -127 || Priority > 127)
  84.         return(NULL);
  85.  
  86.     if(!(PublicName = (char *)AllocMem(strlen(TaskName) + 1,MEMF_PUBLIC)))
  87.         return(NULL);
  88.  
  89.     /*
  90.      * This should be broken into two allocations: task of PUBLIC
  91.      * and stack of PRIVATE
  92.      */
  93.  
  94.     if(!(NewTask = (struct Task *)AllocMem(sizeof(struct Task) + DataSize,MEMF_CLEAR | MEMF_PUBLIC)))
  95.     {
  96.         FreeMem(PublicName,strlen(TaskName) + 1);
  97.         return(NULL);
  98.     }
  99.  
  100.     strcpy(PublicName,TaskName);
  101.  
  102.     NewTask -> tc_Node . ln_Type    = NT_TASK;
  103.     NewTask -> tc_Node . ln_Pri    = Priority;
  104.     NewTask -> tc_Node . ln_Name    = PublicName;
  105.     NewTask -> tc_SPLower        = (APTR)((LONG)NewTask + sizeof(struct Task));
  106.     NewTask -> tc_SPUpper        = (APTR)(((ULONG)(NewTask -> tc_SPLower) + DataSize) & 0xFFFFFE);
  107.     NewTask -> tc_SPReg        = (APTR)((LONG)(NewTask -> tc_SPUpper));
  108.  
  109.     AddTask(NewTask,InitialPC,0);
  110.  
  111.     return(NewTask);
  112. }
  113.  
  114. struct Task *
  115. DeleteFuncTask(Task)
  116. struct Task *Task;
  117. {
  118.     struct MXMBase *MXMBase;
  119.  
  120.     if(Task)
  121.     {
  122.         RemTask(Task);
  123.  
  124.         FreeMem(Task -> tc_Node . ln_Name,strlen(Task -> tc_Node . ln_Name) + 1);
  125.         FreeMem(Task,(ULONG)(Task -> tc_SPUpper) - (ULONG)Task);
  126.     }
  127.  
  128.     return(NULL);
  129. }
  130.  
  131. struct Process *
  132. CreateFuncProc(Name,Priority,InitCode,StackSize)
  133. char *Name;
  134. LONG Priority;
  135. APTR InitCode;
  136. ULONG StackSize;
  137. {
  138.     struct MXMBase *MXMBase;
  139.  
  140.     struct Process *ChildProc = NULL;
  141.     struct MsgPort *ChildPort = NULL;
  142.  
  143.     struct FakeSeg
  144.     {
  145.         LONG Length,Next;
  146.         WORD FirstCode;
  147.         APTR Function;
  148.     } *FakeSeg;
  149.  
  150.     if(!Name || !InitCode || !StackSize || Priority < -127 || Priority > 127)
  151.         return(NULL);
  152.  
  153.     if(!(FakeSeg = (struct FakeSeg *)AllocRem(sizeof(struct FakeSeg),MEMF_PUBLIC | MEMF_CLEAR)))
  154.         return(ChildProc);
  155.  
  156.     FakeSeg -> Length    = sizeof(struct FakeSeg);
  157.     FakeSeg -> FirstCode    = 0x4EF9;
  158.     FakeSeg -> Function    = InitCode;
  159.  
  160.     if(ChildPort = (struct MsgPort *)CreateProc(Name,Priority,(LONG)(&FakeSeg -> Next) >> 2,StackSize))
  161.     {
  162.         ChildProc = (struct Process *)ChildPort -> mp_SigTask;
  163.         TimeDelay(1,0,UNIT_VBLANK);
  164.     }
  165.  
  166.     FreeRem(FakeSeg);
  167.  
  168.     return(ChildProc);
  169. }
  170.  
  171. LONG
  172. MovePointer(mp_Screen,mp_Button,mp_X,mp_Y)
  173. struct Screen *mp_Screen;
  174. LONG mp_Button,mp_X,mp_Y;
  175. {
  176.     struct MXMBase *MXMBase;
  177.  
  178.     LOCAL struct InputEvent mp_StaticEvent =
  179.     {
  180.         NULL,
  181.         IECLASS_POINTERPOS,
  182.         0,
  183.         IECODE_NOBUTTON,
  184.         0,0,0,0
  185.     };
  186.  
  187.     struct MsgPort        *mp_InputPort;
  188.     struct IOStdReq        *mp_InputRequest;
  189.     struct InputEvent    *mp_FakeEvent;
  190.  
  191.     LONG mp_Success = FALSE;
  192.  
  193.     if(mp_InputPort = (struct MsgPort *)CreatePort(NULL,0))
  194.     {
  195.         if(mp_InputRequest = (struct IOStdReq *)CreateStdIO(mp_InputPort))
  196.         {
  197.             if(!OpenDevice("input.device",0,mp_InputRequest,0))
  198.             {
  199.                 if(mp_FakeEvent = (struct InputEvent *)AllocPublic(sizeof(struct InputEvent)))
  200.                 {
  201.                     CopyMem(&mp_StaticEvent,mp_FakeEvent,sizeof(struct InputEvent));
  202.  
  203.                     mp_InputRequest -> io_Command    = IND_WRITEEVENT;
  204.                     mp_InputRequest -> io_Flags    = 0;
  205.                     mp_InputRequest -> io_Length    = sizeof(struct InputEvent);
  206.                     mp_InputRequest -> io_Data    = (APTR)mp_FakeEvent;
  207.  
  208.                     mp_FakeEvent -> ie_X = mp_X;
  209.                     mp_FakeEvent -> ie_Y = mp_Y;
  210.  
  211.                     if(!(mp_Screen -> ViewPort . Modes & HIRES))
  212.                         mp_FakeEvent -> ie_X *= 2;
  213.  
  214.                     if(!(mp_Screen -> ViewPort . Modes & LACE))
  215.                         mp_FakeEvent -> ie_Y *= 2;
  216.  
  217.                     mp_FakeEvent -> ie_Y += (2 * mp_Screen -> TopEdge);
  218.  
  219.                     if(mp_Button)
  220.                         mp_FakeEvent -> ie_Code = IECODE_LBUTTON;
  221.  
  222.                     DoIO(mp_InputRequest);
  223.  
  224.                     if(mp_Button)
  225.                     {
  226.                         mp_FakeEvent -> ie_Code = IECODE_LBUTTON | IECODE_UP_PREFIX;
  227.                         DoIO(mp_InputRequest);
  228.                     }
  229.  
  230.                     mp_Success = TRUE;
  231.  
  232.                     FreeRem(mp_FakeEvent);
  233.                 }
  234.  
  235.                 CloseDevice(mp_InputRequest);
  236.             }
  237.  
  238.             DeleteStdIO(mp_InputRequest);
  239.         }
  240.  
  241.         DeletePort(mp_InputPort);
  242.     }
  243.  
  244.     return(mp_Success);
  245. }
  246.  
  247. LONG
  248. WriteConsole(wc_Window,wc_String)
  249. struct Window *wc_Window;
  250. UBYTE *wc_String;
  251. {
  252.     struct MXMBase *MXMBase;
  253.  
  254.     struct IOStdReq    *wc_ConWrite;
  255.     struct MsgPort    *wc_ConPort;
  256.  
  257.     LONG wc_Success = FALSE;
  258.  
  259.     if(wc_ConPort = (struct MsgPort *)CreatePort(NULL,0))
  260.     {
  261.         if(wc_ConWrite = (struct IOStdReq *)CreateStdIO(wc_ConPort))
  262.         {
  263.             wc_ConWrite -> io_Data    = (APTR)wc_Window;
  264.             wc_ConWrite -> io_Length= sizeof(struct Window);
  265.  
  266.             if(!OpenDevice("console.device",0,wc_ConWrite,0))
  267.             {
  268.                 wc_ConWrite -> io_Command    = CMD_WRITE;
  269.                 wc_ConWrite -> io_Data        = (APTR)"\2330 p";
  270.                 wc_ConWrite -> io_Length    = -1;
  271.  
  272.                 DoIO(wc_ConWrite);
  273.  
  274.                 wc_ConWrite -> io_Data        = (APTR)wc_String;
  275.                 wc_ConWrite -> io_Length    = -1;
  276.  
  277.                 DoIO(wc_ConWrite);
  278.  
  279.                 wc_Success = TRUE;
  280.  
  281.                 CloseDevice(wc_ConWrite);
  282.             }
  283.  
  284.             DeleteStdIO(wc_ConWrite);
  285.         }
  286.  
  287.         DeletePort(wc_ConPort);
  288.     }
  289.  
  290.     return(wc_Success);
  291. }
  292.  
  293. VOID *
  294. DeletePrinterSupport(Support)
  295. struct PrinterSupport *Support;
  296. {
  297.     struct MXMBase *MXMBase;
  298.  
  299.     if(!Support)
  300.         return(NULL);
  301.  
  302.     if(Support -> ps_PrinterIO -> io_Device && Support -> ps_PrinterIO)
  303.         CloseDevice(Support -> ps_PrinterIO);
  304.  
  305.     if(Support -> ps_PrinterIO)
  306.         DeleteExtIO(Support -> ps_PrinterIO);
  307.  
  308.     if(Support -> ps_PrinterPort)
  309.         DeletePort(Support -> ps_PrinterPort);
  310.  
  311.     return(FreeRem(Support));
  312. }
  313.  
  314. struct PrinterSupport *
  315. CreatePrinterSupport(RastPort,ViewPort,LeftEdge,TopEdge,Width,Height,Large)
  316. struct RastPort *RastPort;
  317. struct ViewPort *ViewPort;
  318. LONG LeftEdge,TopEdge,Width,Height,Large;
  319. {
  320.     struct MXMBase *MXMBase;
  321.  
  322.     struct PrinterSupport *Support = (struct PrinterSupport *)AllocPublic(sizeof(struct PrinterSupport));
  323.  
  324.     if(!Support)
  325.         return(NULL);
  326.  
  327.     if(Support -> ps_PrinterPort = (struct MsgPort *)CreatePort(NULL,0))
  328.     {
  329.         if(Support -> ps_PrinterIO = (struct IODRPReq *)CreateExtIO(Support -> ps_PrinterPort,sizeof(struct IODRPReq)))
  330.         {
  331.             if(!OpenDevice("printer.device",0,Support -> ps_PrinterIO,0))
  332.             {
  333.                 Support -> ps_PrinterIO -> io_Command    = PRD_DUMPRPORT;
  334.                 Support -> ps_PrinterIO -> io_RastPort    = RastPort;
  335.                 Support -> ps_PrinterIO -> io_ColorMap    = ViewPort -> ColorMap;
  336.                 Support -> ps_PrinterIO -> io_Modes    = ViewPort -> Modes;
  337.                 Support -> ps_PrinterIO -> io_SrcWidth    = Width;
  338.                 Support -> ps_PrinterIO -> io_SrcHeight    = Height;
  339.                 Support -> ps_PrinterIO -> io_SrcX    = LeftEdge;
  340.                 Support -> ps_PrinterIO -> io_SrcY    = TopEdge;
  341.  
  342.                 if(Large)
  343.                 {
  344.                     Support -> ps_PrinterIO -> io_DestCols    = 0;
  345.                     Support -> ps_PrinterIO -> io_Special    = SPECIAL_FULLCOLS | SPECIAL_ASPECT;
  346.                 }
  347.                 else
  348.                 {
  349.                     Support -> ps_PrinterIO -> io_DestCols    = Width;
  350.                     Support -> ps_PrinterIO -> io_Special    = SPECIAL_MILCOLS | SPECIAL_ASPECT;
  351.                 }
  352.  
  353.                 Support -> ps_PrinterData    = (struct PrinterData *)Support -> ps_PrinterIO -> io_Device;
  354.                 Support -> ps_PrinterExtended    = &Support -> ps_PrinterData -> pd_SegmentData -> ps_PED;
  355.                 Support -> ps_Preferences    = &Support -> ps_PrinterData -> pd_Preferences;
  356.  
  357.                 return(Support);
  358.             }
  359.         }
  360.     }
  361.  
  362.     return(DeletePrinterSupport(Support));
  363. }
  364.  
  365. VOID
  366. StartPrinterDump(Support,WaitUntilDone)
  367. struct PrinterSupport *Support;
  368. LONG WaitUntilDone;
  369. {
  370.     struct MXMBase *MXMBase;
  371.  
  372.     if(!Support)
  373.         return;
  374.  
  375.     SendIO(Support -> ps_PrinterIO);
  376.  
  377.     if(WaitUntilDone)
  378.         Wait(1 << Support -> ps_PrinterPort -> mp_SigBit);
  379. }
  380.  
  381. LONG
  382. StopPrinterDump(Support,WaitUntilDone)
  383. struct PrinterSupport *Support;
  384. LONG WaitUntilDone;
  385. {
  386.     struct MXMBase *MXMBase;
  387.  
  388.     if(!Support)
  389.         return(FALSE);
  390.  
  391.     if(WaitUntilDone)
  392.         Wait(1 << Support -> ps_PrinterPort -> mp_SigBit);
  393.     else
  394.     {
  395.         if(AbortIO(Support -> ps_PrinterIO))
  396.             return(FALSE);
  397.     }
  398.  
  399.     WaitIO(Support -> ps_PrinterIO);
  400.  
  401.     return(TRUE);
  402. }
  403.  
  404. VOID
  405. DeleteTimer(TimeRequest)
  406. struct TimeRequest *TimeRequest;
  407. {
  408.     struct MXMBase *MXMBase;
  409.  
  410.     struct MsgPort *TimePort;
  411.  
  412.     if(TimeRequest)
  413.     {
  414.         if(TimeRequest -> tr_node . io_Device)
  415.             CloseDevice(TimeRequest);
  416.  
  417.         if(TimePort = TimeRequest -> tr_node . io_Message . mn_ReplyPort)
  418.             DeletePort(TimePort);
  419.  
  420.         DeleteExtIO(TimeRequest);
  421.     }
  422. }
  423.  
  424. struct TimeRequest *
  425. CreateTimer(Unit)
  426. ULONG Unit;
  427. {
  428.     struct MXMBase *MXMBase;
  429.  
  430.     struct MsgPort        *TimePort;
  431.     struct TimeRequest    *TimeRequest;
  432.  
  433.     if(!(TimePort = (struct MsgPort *)CreatePort(NULL,0)))
  434.         return(NULL);
  435.  
  436.     if(!(TimeRequest = (struct TimeRequest *)CreateExtIO(TimePort,sizeof(struct TimeRequest))))
  437.     {
  438.         DeletePort(TimePort);
  439.  
  440.         return(NULL);
  441.     }
  442.  
  443.     if(OpenDevice(TIMERNAME,Unit,TimeRequest,0))
  444.     {
  445.         DeleteExtIO(TimeRequest);
  446.         DeletePort(TimePort);
  447.  
  448.         return(NULL);
  449.     }
  450.  
  451.     return(TimeRequest);
  452. }
  453.  
  454. VOID
  455. WaitForTimer(TimeRequest,TimeVal)
  456. struct TimeRequest *TimeRequest;
  457. struct TimeVal *TimeVal;
  458. {
  459.     struct MXMBase *MXMBase;
  460.  
  461.     TimeRequest -> tr_node . io_Command = TR_ADDREQUEST;
  462.  
  463.     CopyMem(TimeVal,&TimeRequest -> tr_time,sizeof(struct TimeVal));
  464.  
  465.     DoIO(TimeRequest);
  466. }
  467.  
  468. VOID
  469. TimeDelay(Seconds,Micros,Unit)
  470. ULONG Seconds,Micros,Unit;
  471. {
  472.     struct MXMBase *MXMBase;
  473.  
  474.     struct TimeRequest    *TimeRequest;
  475.     struct TimeVal         TimeVal;
  476.  
  477.     if(!Seconds && !Micros)
  478.         return;
  479.  
  480.     TimeVal . tv_secs    = Seconds;
  481.     TimeVal . tv_micro    = Micros;
  482.  
  483.     if(TimeRequest = CreateTimer(Unit))
  484.     {
  485.         WaitForTimer(TimeRequest,&TimeVal);
  486.         DeleteTimer(TimeRequest);
  487.     }
  488. }
  489.  
  490. LONG
  491. KeyConvert(kc_IMsg)
  492. struct IntuiMessage *kc_IMsg;
  493. {
  494.     struct MXMBase *MXMBase;
  495.  
  496.     LOCAL struct
  497.     {
  498.         UBYTE *Unshifted;
  499.         UBYTE *Shifted;
  500.         UBYTE Result;
  501.     } kc_ConversionTable[30] =
  502.     {
  503.         (UBYTE *)"\233A",    (UBYTE *)NULL,        KC_CURSORUP,
  504.         (UBYTE *)"\233B",    (UBYTE *)NULL,        KC_CURSORDOWN,
  505.         (UBYTE *)"\233C",    (UBYTE *)NULL,        KC_CURSORRIGHT,
  506.         (UBYTE *)"\233D",    (UBYTE *)NULL,        KC_CURSORLEFT,
  507.  
  508.         (UBYTE *)NULL,        (UBYTE *)"\233T",    KC_CURSORUP   | KC_SHIFT,
  509.         (UBYTE *)NULL,        (UBYTE *)"\233S",    KC_CURSORDOWN | KC_SHIFT,
  510.         (UBYTE *)NULL,        (UBYTE *)"\233 A",    KC_CURSORRIGHT| KC_SHIFT,
  511.         (UBYTE *)NULL,        (UBYTE *)"\233 @",    KC_CURSORLEFT | KC_SHIFT,
  512.  
  513.         (UBYTE *)"\2330~",    (UBYTE *)NULL,        KC_FKEY1,
  514.         (UBYTE *)"\2331~",    (UBYTE *)NULL,        KC_FKEY2,
  515.         (UBYTE *)"\2332~",    (UBYTE *)NULL,        KC_FKEY3,
  516.         (UBYTE *)"\2333~",    (UBYTE *)NULL,        KC_FKEY4,
  517.         (UBYTE *)"\2334~",    (UBYTE *)NULL,        KC_FKEY5,
  518.         (UBYTE *)"\2335~",    (UBYTE *)NULL,        KC_FKEY6,
  519.         (UBYTE *)"\2336~",    (UBYTE *)NULL,        KC_FKEY7,
  520.         (UBYTE *)"\2337~",    (UBYTE *)NULL,        KC_FKEY8,
  521.         (UBYTE *)"\2338~",    (UBYTE *)NULL,        KC_FKEY9,
  522.         (UBYTE *)"\2339~",    (UBYTE *)NULL,        KC_FKEY10,
  523.  
  524.         (UBYTE *)NULL,        (UBYTE *)"\23310~",    KC_FKEY1 | KC_SHIFT,
  525.         (UBYTE *)NULL,        (UBYTE *)"\23311~",    KC_FKEY2 | KC_SHIFT,
  526.         (UBYTE *)NULL,        (UBYTE *)"\23312~",    KC_FKEY3 | KC_SHIFT,
  527.         (UBYTE *)NULL,        (UBYTE *)"\23313~",    KC_FKEY4 | KC_SHIFT,
  528.         (UBYTE *)NULL,        (UBYTE *)"\23314~",    KC_FKEY5 | KC_SHIFT,
  529.         (UBYTE *)NULL,        (UBYTE *)"\23315~",    KC_FKEY6 | KC_SHIFT,
  530.         (UBYTE *)NULL,        (UBYTE *)"\23316~",    KC_FKEY7 | KC_SHIFT,
  531.         (UBYTE *)NULL,        (UBYTE *)"\23317~",    KC_FKEY8 | KC_SHIFT,
  532.         (UBYTE *)NULL,        (UBYTE *)"\23318~",    KC_FKEY9 | KC_SHIFT,
  533.         (UBYTE *)NULL,        (UBYTE *)"\23319~",    KC_FKEY10| KC_SHIFT,
  534.  
  535.         (UBYTE *)"\233?~",    (UBYTE *)NULL,        KC_HELP,
  536.  
  537.         (UBYTE *)"\r",        (UBYTE *)NULL,        '\n'
  538.     };
  539.  
  540.     struct InputEvent    *kc_FakeInputEvent;
  541.     UBYTE            *kc_Buffer;
  542.     LONG             i;
  543.  
  544.     if(kc_IMsg -> Class != RAWKEY)
  545.         return(NULL);
  546.  
  547.     if(!(kc_Buffer = (UBYTE *)AllocPublic(256)))
  548.         return(NULL);
  549.  
  550.     if(!(kc_FakeInputEvent = (struct InputEvent *)AllocPublic(sizeof(struct InputEvent))))
  551.     {
  552.         FreeRem(kc_Buffer);
  553.         return(NULL);
  554.     }
  555.  
  556.     kc_FakeInputEvent -> ie_Class        = IECLASS_RAWKEY;
  557.     kc_FakeInputEvent -> ie_Code        = kc_IMsg -> Code;
  558.     kc_FakeInputEvent -> ie_Qualifier    = kc_IMsg -> Qualifier;
  559.  
  560.     if(RawKeyConvert(kc_FakeInputEvent,kc_Buffer,256,NULL) < 1)
  561.     {
  562.         FreeRem(kc_Buffer);
  563.         FreeRem(kc_FakeInputEvent);
  564.  
  565.         return(NULL);
  566.     }
  567.  
  568.     if(!kc_Buffer[0])
  569.     {
  570.         FreeRem(kc_Buffer);
  571.         FreeRem(kc_FakeInputEvent);
  572.  
  573.         return(NULL);
  574.     }
  575.  
  576.     for(i = 0 ; i < 30 ; i++)
  577.     {
  578.         if(!UStrCmp(kc_Buffer,kc_ConversionTable[i] . Unshifted) || !UStrCmp(kc_Buffer,kc_ConversionTable[i] . Shifted))
  579.         {
  580.             kc_Buffer[0] = kc_ConversionTable[i] . Result;
  581.             break;
  582.         }
  583.     }
  584.  
  585.     i = (LONG)kc_Buffer[0];
  586.  
  587.     FreeRem(kc_Buffer);
  588.     FreeRem(kc_FakeInputEvent);
  589.  
  590.     return(i);
  591. }
  592.  
  593. struct InputEvent *
  594. InvertKey(ik_Code,ik_Event,ik_Command,ik_ExtraInfo)
  595. LONG ik_Code;
  596. struct InputEvent *ik_Event;
  597. LONG ik_Command;
  598. APTR ik_ExtraInfo;
  599. {
  600.     struct MXMBase *MXMBase;
  601.  
  602.     extern struct KeyEquivalent    *EquList;
  603.     extern struct KeyMap        *ik_KeyMap;
  604.  
  605.     LONG i;
  606.  
  607.     if(ik_Command & IK_BUILDLIST)
  608.     {
  609.         if(ik_Command & IK_USEIKM)
  610.         {
  611.             struct IOStdReq    *ik_Request;
  612.             struct MsgPort    *ik_Port;
  613.  
  614.             if(ik_Port = CreatePort(NULL,0))
  615.             {
  616.                 if(ik_Request = CreateStdIO(ik_Port))
  617.                 {
  618.                     if(!OpenDevice("console.device",-1,ik_Request,0))
  619.                     {
  620.                         ik_Request -> io_Command    = CD_ASKDEFAULTKEYMAP;
  621.                         ik_Request -> io_Length        = sizeof(struct KeyMap);
  622.                         ik_Request -> io_Data        = (APTR)ik_KeyMap;
  623.                         ik_Request -> io_Flags        = 1;
  624.  
  625.                         DoIO(ik_Request);
  626.  
  627.                         CloseDevice(ik_Request);
  628.                     }
  629.  
  630.                     DeleteStdIO(ik_Request);
  631.                 }
  632.  
  633.                 DeletePort(ik_Port);
  634.             }
  635.         }
  636.  
  637.         if(ik_Command & IK_USELIST)
  638.         {
  639.             struct IntuiMessage FakeMsg;
  640.  
  641.             for(i = 0 ; i < 94 ; i++)
  642.             {
  643.                 FakeMsg . Class    = RAWKEY;
  644.                 FakeMsg . Code    = i;
  645.  
  646.                 FakeMsg . Qualifier        = 0;
  647.                 EquList[i] . ke_Normal        = KeyConvert(&FakeMsg);
  648.  
  649.                 FakeMsg . Qualifier        = IEQUALIFIER_LSHIFT;
  650.                 EquList[i] . ke_Shift        = KeyConvert(&FakeMsg);
  651.  
  652.                 FakeMsg . Qualifier        = IEQUALIFIER_CONTROL;
  653.                 EquList[i] . ke_Control        = KeyConvert(&FakeMsg);
  654.  
  655.                 FakeMsg . Qualifier        = IEQUALIFIER_RALT;
  656.                 EquList[i] . ke_Alternate    = KeyConvert(&FakeMsg);
  657.             }
  658.         }
  659.  
  660.         return(NULL);
  661.     }
  662.  
  663.     if(!ik_Event || ik_Code < 0 || ik_Code > 255)
  664.         return(NULL);
  665.  
  666.     if(ik_Command & IK_USEIKM)
  667.     {
  668.         if(InvertKeyMap(ik_Code,ik_Event,ik_KeyMap))
  669.             return(ik_Event);
  670.  
  671.         return(NULL);
  672.     }
  673.  
  674.     for(i = 0 ; i < 94 ; i++)
  675.     {
  676.         if(EquList[i] . ke_Normal == ik_Code)
  677.         {
  678.             ik_Event -> ie_Code    = i;
  679.             ik_Event -> ie_Qualifier= 0;
  680.  
  681.             return(ik_Event);
  682.         }
  683.  
  684.         if(EquList[i] . ke_Shift == ik_Code)
  685.         {
  686.             ik_Event -> ie_Code    = i;
  687.             ik_Event -> ie_Qualifier= IEQUALIFIER_LSHIFT;
  688.  
  689.             return(ik_Event);
  690.         }
  691.  
  692.         if(EquList[i] . ke_Control == ik_Code)
  693.         {
  694.             ik_Event -> ie_Code    = i;
  695.             ik_Event -> ie_Qualifier= IEQUALIFIER_CONTROL;
  696.  
  697.             return(ik_Event);
  698.         }
  699.  
  700.         if(EquList[i] . ke_Alternate == ik_Code)
  701.         {
  702.             ik_Event -> ie_Code    = i;
  703.             ik_Event -> ie_Qualifier= IEQUALIFIER_LALT;
  704.  
  705.             return(ik_Event);
  706.         }
  707.     }
  708.  
  709.     return(NULL);
  710. }
  711.  
  712. VOID
  713. EraseGadget(RPort,Gadget,Colour)
  714. struct RastPort *RPort;
  715. struct Gadget *Gadget;
  716. LONG Colour;
  717. {
  718.     struct MXMBase *MXMBase;
  719.  
  720.     LONG FgPen = RPort -> FgPen;
  721.  
  722.     SetAPen(RPort,Colour);
  723.  
  724.     SetDrMd(RPort,JAM1);
  725.  
  726.     RectFill(RPort,Gadget -> LeftEdge,Gadget -> TopEdge,Gadget -> LeftEdge + Gadget -> Width - 1,Gadget -> TopEdge + Gadget -> Height - 1);
  727.  
  728.     SetAPen(RPort,FgPen);
  729. }
  730.  
  731. VOID
  732. RefreshGadget(Gadget,Window)
  733. struct Gadget *Gadget;
  734. struct Window *Window;
  735. {
  736.     struct MXMBase *MXMBase;
  737.  
  738.     struct Gadget *NextGad = Gadget -> NextGadget;
  739.  
  740.     Gadget -> NextGadget = NULL;
  741.  
  742.     EraseGadget(Window -> RPort,Gadget,0);
  743.  
  744.     RefreshGadgets(Gadget,Window,NULL);
  745.  
  746.     Gadget -> NextGadget = NextGad;
  747. }
  748.  
  749. LONG
  750. GetLongInt(Gadget)
  751. struct Gadget *Gadget;
  752. {
  753.     struct MXMBase *MXMBase;
  754.  
  755.     struct StringInfo *StrInf = (struct StringInfo *)Gadget -> SpecialInfo;
  756.  
  757.     return(StrInf -> LongInt);
  758. }
  759.  
  760. VOID
  761. SetLongInt(Gadget,Val)
  762. struct Gadget *Gadget;
  763. LONG Val;
  764. {
  765.     struct MXMBase *MXMBase;
  766.  
  767.     struct StringInfo *StrInf = (struct StringInfo *)Gadget -> SpecialInfo;
  768.  
  769.     StrInf -> LongInt = Val;
  770.  
  771.     Format(StrInf -> Buffer,"%ld",Val);
  772. }
  773.  
  774. UBYTE *
  775. GetGadgetString(Gadget)
  776. struct Gadget *Gadget;
  777. {
  778.     struct MXMBase *MXMBase;
  779.  
  780.     struct StringInfo *StrInf = (struct StringInfo *)Gadget -> SpecialInfo;
  781.  
  782.     return(StrInf -> Buffer);
  783. }
  784.  
  785. VOID
  786. SetGadgetString(Gadget,String)
  787. struct Gadget *Gadget;
  788. UBYTE *String;
  789. {
  790.     struct MXMBase *MXMBase;
  791.  
  792.     struct StringInfo *StrInf = (struct StringInfo *)Gadget -> SpecialInfo;
  793.  
  794.     if(!Gadget || !StrInf)
  795.         return;
  796.  
  797.     if(StrInf -> Buffer)
  798.         strcpy(StrInf -> Buffer,String);
  799.  
  800.     if(StrInf -> UndoBuffer)
  801.         strcpy(StrInf -> UndoBuffer,String);
  802. }
  803.  
  804. LONG
  805. GetToggleGadget(Gadget)
  806. struct Gadget *Gadget;
  807. {
  808.     struct MXMBase *MXMBase;
  809.  
  810.     if(!(Gadget -> Flags & SELECTED))
  811.         return(FALSE);
  812.     else
  813.         return(TRUE);
  814. }
  815.  
  816. VOID
  817. SetToggleGadget(Gadget,State)
  818. struct Gadget *Gadget;
  819. LONG State;
  820. {
  821.     struct MXMBase *MXMBase;
  822.  
  823.     if(!Gadget)
  824.         return;
  825.  
  826.     if(State)
  827.         Gadget -> Flags |= SELECTED;
  828.     else
  829.         Gadget -> Flags &= ~SELECTED;
  830. }
  831.  
  832. VOID
  833. SetWaitPointer(Window)
  834. struct Window *Window;
  835. {
  836.     struct MXMBase *MXMBase;
  837.  
  838.     LOCAL UWORD WBenchBalloon[(2 + 22) * 2] =
  839.     {
  840.         0x0000,0x0000,
  841.  
  842.         0x0600,0x0600,
  843.         0x0F40,0x0F40,
  844.         0x3FE0,0x3FE0,
  845.         0x7FE0,0x7FE0,
  846.         0x61F0,0x7FF0,
  847.         0x7BF8,0x7FF8,
  848.         0xF7F8,0xFFF8,
  849.         0x61FC,0x7FFC,
  850.         0x7F0C,0x7FFC,
  851.         0x3FDE,0x3FFE,
  852.         0x7FBC,0x7FFC,
  853.         0x3F0C,0x3FFC,
  854.         0x1FF8,0x1FF8,
  855.         0x07F0,0x07F0,
  856.         0x01C0,0x01C0,
  857.         0x0700,0x0700,
  858.         0x0FC0,0x0FC0,
  859.         0x0680,0x0680,
  860.         0x0000,0x0000,
  861.         0x00C0,0x00C0,
  862.         0x00E0,0x00E0,
  863.         0x0040,0x0040,
  864.  
  865.         0x0000,0x0000
  866.     };
  867.  
  868.     if(Window)
  869.         SetPointer(Window,&WBenchBalloon[0],22,15,-7,-8);
  870. }
  871.  
  872. LONG
  873. PopRequest(pr_ParentWindow,pr_TitleText,pr_BodyText,pr_PosText,pr_NegText,pr_Default,pr_ExtraInfo)
  874. struct Window *pr_ParentWindow;
  875. UBYTE *pr_TitleText,*pr_BodyText,*pr_PosText,*pr_NegText;
  876. LONG pr_Default;
  877. struct PopSupport *pr_ExtraInfo;
  878. {
  879.     struct MXMBase *MXMBase;
  880.  
  881.     LOCAL struct NewWindow pr_StaticNewWindow =
  882.     {
  883.         0,0,
  884.         0,1,
  885.         0,1,
  886.         RAWKEY | MOUSEBUTTONS | GADGETUP | CLOSEWINDOW,
  887.         RMBTRAP | WINDOWDRAG | WINDOWDEPTH,
  888.         (struct Gadget *)NULL,
  889.         (struct Image *)NULL,
  890.         (STRPTR)NULL,
  891.         (struct Screen *)NULL,
  892.         (struct BitMap *)NULL,
  893.         0,0,
  894.         0,0,
  895.         WBENCHSCREEN
  896.     };
  897.  
  898.     LOCAL struct Gadget pr_StaticGadget =
  899.     {
  900.         (struct Gadget *)NULL,
  901.         0,0,
  902.         0,0,
  903.         GADGHBOX,
  904.         RELVERIFY | GADGIMMEDIATE,
  905.         BOOLGADGET,
  906.         (APTR)NULL,
  907.         (APTR)NULL,
  908.         (struct IntuiText *)NULL,
  909.         NULL,
  910.         (APTR)NULL,
  911.         0,
  912.         (APTR)NULL
  913.     };
  914.  
  915.     LOCAL struct TextAttr pr_TextAttr =
  916.     {
  917.         (UBYTE *)"topaz.font",
  918.         8,
  919.         FS_NORMAL,
  920.         FPF_ROMFONT
  921.     };
  922.  
  923.     struct NewWindow    *pr_NewWindow;
  924.     struct Window        *pr_Window;
  925.     struct IntuiMessage    *pr_IMsg;
  926.     struct Gadget        *pr_PosGadget = NULL,*pr_NegGadget = NULL,*pr_TempGadget;
  927.  
  928.     struct Screen         pr_Screen,*pr_FrontScreen;
  929.     struct TextFont        *pr_TextFont;
  930.  
  931.     LONG             pr_Width,pr_Height;
  932.     LONG             pr_Result = FALSE;
  933.  
  934.     LONG             pr_TickCount = 0;
  935.     ULONG             pr_IntuiLock;
  936.  
  937.     if(!pr_BodyText)
  938.         return(pr_Result);
  939.  
  940.     if(!(pr_NewWindow = (struct NewWindow *)AllocRem(sizeof(struct NewWindow),MEMF_PUBLIC)))
  941.         return(pr_Result);
  942.  
  943.     CopyMem(&pr_StaticNewWindow,pr_NewWindow,sizeof(struct NewWindow));
  944.  
  945.     pr_IntuiLock = LockIBase(NULL);
  946.  
  947.     pr_FrontScreen = IntuitionBase -> FirstScreen;
  948.  
  949.     UnlockIBase(pr_IntuiLock);
  950.  
  951.     if(pr_ParentWindow)
  952.     {
  953.         pr_NewWindow -> Type    = CUSTOMSCREEN;
  954.         pr_NewWindow -> Screen    = pr_ParentWindow -> WScreen;
  955.     }
  956.     else
  957.         OpenWorkBench();
  958.  
  959.     if(!GetScreenData(&pr_Screen,sizeof(struct Screen),pr_NewWindow -> Type,pr_NewWindow -> Screen))
  960.     {
  961.         FreeRem(pr_NewWindow);
  962.         return(pr_Result);
  963.     }
  964.  
  965.     CalcDimensions(pr_BodyText,&pr_Width,&pr_Height,(pr_Screen . Width - 6) / 8);
  966.  
  967.     if(pr_Height > (pr_Screen . Height - 15 - 13) / 8)
  968.     {
  969.         FreeRem(pr_NewWindow);
  970.         return(pr_Result);
  971.     }
  972.  
  973.     pr_NewWindow -> Width    = pr_Width * 8 + 6 + 4;
  974.     pr_NewWindow -> Height    = pr_Height * 8 + 15 + 19 + 2;
  975.  
  976.     if(pr_TitleText)
  977.         pr_NewWindow -> Title = pr_TitleText;
  978.     else
  979.         pr_NewWindow -> Title = (UBYTE *)"System Request";
  980.  
  981.     if(!pr_PosText && !pr_NegText)
  982.         pr_NegText = (UBYTE *)"Okay";
  983.  
  984.     if(pr_PosText)
  985.     {
  986.         if(!(pr_PosGadget = (struct Gadget *)AllocRem(sizeof(struct Gadget),MEMF_PUBLIC)))
  987.         {
  988.             FreeRem(pr_NewWindow);
  989.             return(pr_Result);
  990.         }
  991.  
  992.         CopyMem(&pr_StaticGadget,pr_PosGadget,sizeof(struct Gadget));
  993.  
  994.         pr_PosGadget -> Width    = 8 * strlen(pr_PosText) + 4;
  995.         pr_PosGadget -> Height    = 8 + 2;
  996.  
  997.         pr_PosGadget -> LeftEdge= 3 + 2 + 3;
  998.         pr_PosGadget -> TopEdge    = pr_NewWindow -> Height - 13 - 1;
  999.     }
  1000.  
  1001.     if(pr_NegText)
  1002.     {
  1003.         if(!(pr_NegGadget = (struct Gadget *)AllocRem(sizeof(struct Gadget),MEMF_PUBLIC)))
  1004.         {
  1005.             FreeRem(pr_NewWindow);
  1006.  
  1007.             if(pr_PosGadget)
  1008.                 FreeRem(pr_PosGadget);
  1009.  
  1010.             return(pr_Result);
  1011.         }
  1012.  
  1013.         CopyMem(&pr_StaticGadget,pr_NegGadget,sizeof(struct Gadget));
  1014.  
  1015.         pr_NegGadget -> Width    = 8 * strlen(pr_NegText) + 4;
  1016.         pr_NegGadget -> Height    = 8 + 2;
  1017.  
  1018.         pr_Width = pr_NegGadget -> Width + 6 + 4 + 6;
  1019.  
  1020.         if(pr_PosGadget)
  1021.             pr_Width += (pr_PosGadget -> Width + 12);
  1022.  
  1023.         if(pr_NewWindow -> Width < pr_Width)
  1024.             pr_NewWindow -> Width = pr_Width;
  1025.  
  1026.         pr_NegGadget -> LeftEdge= pr_NewWindow -> Width - pr_NegGadget -> Width - 3 - 2 - 3;
  1027.         pr_NegGadget -> TopEdge    = pr_NewWindow -> Height - 13 - 1;
  1028.  
  1029.         pr_NegGadget -> GadgetID= 1;
  1030.     }
  1031.  
  1032.     if(!pr_NegGadget && pr_NewWindow -> Width < pr_PosGadget -> Width + 6 + 4 + 6)
  1033.         pr_NewWindow -> Width = pr_PosGadget -> Width + 6 + 4 + 6;
  1034.  
  1035.     if(pr_Default && !pr_PosGadget)
  1036.         pr_Default = FALSE;
  1037.  
  1038.     if(!pr_Default && !pr_NegGadget)
  1039.         pr_Default = TRUE;
  1040.  
  1041.     if(pr_Default)
  1042.         pr_TempGadget = pr_PosGadget;
  1043.     else
  1044.         pr_TempGadget = pr_NegGadget;
  1045.  
  1046.     pr_NewWindow -> LeftEdge= pr_Screen . MouseX - (pr_TempGadget -> LeftEdge + pr_TempGadget -> Width / 2);
  1047.     pr_NewWindow -> TopEdge    = pr_Screen . MouseY - (pr_TempGadget -> TopEdge + pr_TempGadget -> Height / 2);
  1048.  
  1049.     while(pr_NewWindow -> LeftEdge < 0)
  1050.         pr_NewWindow -> LeftEdge++;
  1051.  
  1052.     while(pr_NewWindow -> TopEdge < 0)
  1053.         pr_NewWindow -> TopEdge++;
  1054.  
  1055.     while(pr_NewWindow -> LeftEdge + pr_NewWindow -> Width >= pr_Screen . Width)
  1056.         pr_NewWindow -> LeftEdge--;
  1057.  
  1058.     while(pr_NewWindow -> TopEdge + pr_NewWindow -> Height >= pr_Screen . Height)
  1059.         pr_NewWindow -> TopEdge--;
  1060.  
  1061.     if(!(pr_TextFont = (struct TextFont *)OpenFont(&pr_TextAttr)))
  1062.     {
  1063.         if(pr_PosGadget)
  1064.             FreeRem(pr_PosGadget);
  1065.  
  1066.         if(pr_NegGadget)
  1067.             FreeRem(pr_NegGadget);
  1068.  
  1069.         FreeRem(pr_NewWindow);
  1070.  
  1071.         return(pr_Result);
  1072.     }
  1073.  
  1074.     if(pr_ExtraInfo)
  1075.     {
  1076.         if(pr_ExtraInfo -> ps_Flags & PS_CENTER)
  1077.         {
  1078.             pr_NewWindow -> LeftEdge    = (pr_Screen . Width - pr_NewWindow -> Width) / 2;
  1079.             pr_NewWindow -> TopEdge        = (pr_Screen . Height - pr_NewWindow -> Height) / 2;
  1080.         }
  1081.  
  1082.         if(pr_ExtraInfo -> ps_Flags & PS_TIMEOUT)
  1083.             pr_NewWindow -> IDCMPFlags |= INTUITICKS;
  1084.  
  1085.         if(pr_ExtraInfo -> ps_Flags & PS_STAYACTIVE)
  1086.             pr_NewWindow -> IDCMPFlags |= INACTIVEWINDOW;
  1087.     }
  1088.  
  1089.     if(!(pr_Window = (struct Window *)OpenWindow(pr_NewWindow)))
  1090.     {
  1091.         CloseFont(pr_TextFont);
  1092.  
  1093.         if(pr_PosGadget)
  1094.             FreeRem(pr_PosGadget);
  1095.  
  1096.         if(pr_NegGadget)
  1097.             FreeRem(pr_NegGadget);
  1098.  
  1099.         FreeRem(pr_NewWindow);
  1100.  
  1101.         return(pr_Result);
  1102.     }
  1103.  
  1104.     SetFont(pr_Window -> RPort,pr_TextFont);
  1105.  
  1106.     WriteConsole(pr_Window,pr_BodyText);
  1107.  
  1108.     if(pr_PosGadget)
  1109.     {
  1110.         AddGadget(pr_Window,pr_PosGadget,1);
  1111.  
  1112.         EraseGadget(pr_Window -> RPort,pr_PosGadget,2);
  1113.  
  1114.         Move(pr_Window -> RPort,pr_PosGadget -> LeftEdge + 2,pr_PosGadget -> TopEdge + 1 + pr_TextFont -> tf_Baseline);
  1115.         Text(pr_Window -> RPort,pr_PosText,strlen(pr_PosText));
  1116.     }
  1117.  
  1118.     if(pr_NegGadget)
  1119.     {
  1120.         AddGadget(pr_Window,pr_NegGadget,1);
  1121.  
  1122.         EraseGadget(pr_Window -> RPort,pr_NegGadget,2);
  1123.  
  1124.         Move(pr_Window -> RPort,pr_NegGadget -> LeftEdge + 2,pr_NegGadget -> TopEdge + 1 + pr_TextFont -> tf_Baseline);
  1125.         Text(pr_Window -> RPort,pr_NegText,strlen(pr_NegText));
  1126.     }
  1127.  
  1128.     MoveScreen(pr_Window -> WScreen,0,- pr_Window -> WScreen -> TopEdge);
  1129.     ScreenToFront(pr_Window -> WScreen);
  1130.     ActivateWindow(pr_Window);
  1131.  
  1132.     if(pr_ExtraInfo && pr_ExtraInfo -> ps_Flags & PS_DONTMOVE)
  1133.         goto Skip1;
  1134.  
  1135.     MovePointer(pr_Window -> WScreen,FALSE,
  1136.         pr_Window -> LeftEdge + (pr_TempGadget -> LeftEdge + pr_TempGadget -> Width / 2),
  1137.         pr_Window -> TopEdge + (pr_TempGadget -> TopEdge + pr_TempGadget -> Height / 2));
  1138.  
  1139. Skip1:    if(pr_ExtraInfo)
  1140.     {
  1141.         if(pr_ExtraInfo -> ps_Flags & PS_BEEP)
  1142.             DisplayBeep(pr_Window -> WScreen);
  1143.  
  1144.         if(pr_ExtraInfo -> ps_Flags & PS_ANNOUNCE)
  1145.             Announce();
  1146.  
  1147.         if(pr_ExtraInfo -> ps_Flags & PS_TIMEOUT)
  1148.             pr_TickCount = pr_ExtraInfo -> ps_TimeOut * 10;
  1149.     }
  1150.  
  1151.     FOREVER
  1152.     {
  1153.         ULONG pr_Class,pr_Code;
  1154.         struct Gadget *pr_Gadget;
  1155.  
  1156.         WaitPort(pr_Window -> UserPort);
  1157.  
  1158.         if(pr_IMsg = (struct IntuiMessage *)GetMsg(pr_Window -> UserPort))
  1159.         {
  1160.             pr_Class    = pr_IMsg -> Class;
  1161.             pr_Code        = pr_IMsg -> Code;
  1162.             pr_Gadget    = (struct Gadget *)pr_IMsg -> IAddress;
  1163.  
  1164.             if(pr_Class == RAWKEY)
  1165.                 pr_Code = KeyConvert(pr_IMsg);
  1166.  
  1167.             ReplyMsg(pr_IMsg);
  1168.  
  1169.             if(pr_Class == INTUITICKS)
  1170.             {
  1171.                 if(pr_TickCount)
  1172.                     pr_TickCount--;
  1173.                 else
  1174.                 {
  1175.                     pr_Result = pr_Default;
  1176.                     break;
  1177.                 }
  1178.  
  1179.                 continue;
  1180.             }
  1181.  
  1182.             if(pr_Class == INACTIVEWINDOW)
  1183.             {
  1184.                 MoveScreen(pr_Window -> WScreen,0,- pr_Window -> WScreen -> TopEdge);
  1185.                 ScreenToFront(pr_Window -> WScreen);
  1186.                 ActivateWindow(pr_Window);
  1187.  
  1188.                 if(!(pr_ExtraInfo -> ps_Flags & PS_DONTMOVE))
  1189.                 {
  1190.                     MovePointer(pr_Window -> WScreen,FALSE,
  1191.                         pr_Window -> LeftEdge + (pr_TempGadget -> LeftEdge + pr_TempGadget -> Width / 2),
  1192.                         pr_Window -> TopEdge + (pr_TempGadget -> TopEdge + pr_TempGadget -> Height / 2));
  1193.                 }
  1194.  
  1195.                 if(pr_ExtraInfo -> ps_Flags & PS_BEEP)
  1196.                     DisplayBeep(pr_Window -> WScreen);
  1197.  
  1198.                 continue;
  1199.             }
  1200.  
  1201.             if(pr_Class == GADGETUP)
  1202.             {
  1203.                 if(pr_Gadget -> GadgetID == 0)
  1204.                     pr_Result = TRUE;
  1205.  
  1206.                 break;
  1207.             }
  1208.  
  1209.             if(pr_Class == CLOSEWINDOW)
  1210.                 break;
  1211.  
  1212.             if(pr_Class == RAWKEY)
  1213.             {
  1214.                 pr_Code = ToUpper(pr_Code);
  1215.  
  1216.                 if((pr_Code == 'Y' || pr_Code == 'J' || pr_Code == 'V' || pr_Code == 'C' || pr_Code == 'R' || pr_Code == '\n') && pr_PosText)
  1217.                 {
  1218.                     pr_Result = TRUE;
  1219.                     break;
  1220.                 }
  1221.  
  1222.                 if((pr_Code == 'N' || pr_Code == 'Q' || pr_Code == 'B' || pr_Code == '\33') && pr_NegText)
  1223.                     break;
  1224.  
  1225.                 continue;
  1226.             }
  1227.  
  1228.             if(pr_Class == MOUSEBUTTONS && pr_Code == MENUDOWN)
  1229.             {
  1230.                 MovePointer(pr_Window -> WScreen,FALSE,
  1231.                     pr_Window -> LeftEdge+ (pr_TempGadget -> LeftEdge + pr_TempGadget -> Width / 2),
  1232.                     pr_Window -> TopEdge + (pr_TempGadget -> TopEdge  + pr_TempGadget -> Height / 2));
  1233.             }
  1234.         }
  1235.     }
  1236.  
  1237.     CloseFont(pr_TextFont);
  1238.  
  1239.     if(pr_PosGadget)
  1240.     {
  1241.         RemoveGadget(pr_Window,pr_PosGadget);
  1242.         FreeRem(pr_PosGadget);
  1243.     }
  1244.  
  1245.     if(pr_NegGadget)
  1246.     {
  1247.         RemoveGadget(pr_Window,pr_NegGadget);
  1248.         FreeRem(pr_NegGadget);
  1249.     }
  1250.  
  1251.     FreeRem(pr_NewWindow);
  1252.  
  1253.     pr_IntuiLock = LockIBase(NULL);
  1254.  
  1255.     if(pr_FrontScreen == IntuitionBase -> FirstScreen)
  1256.         pr_FrontScreen = NULL;
  1257.  
  1258.     UnlockIBase(pr_IntuiLock);
  1259.  
  1260.     if(pr_FrontScreen)
  1261.         ScreenToFront(pr_FrontScreen);
  1262.  
  1263.     CloseWindow(pr_Window);
  1264.  
  1265.     return(pr_Result);
  1266. }
  1267.  
  1268. LONG
  1269. PopMenu(menu,win)
  1270. struct Menu *menu;
  1271. struct Window *win;
  1272. {
  1273.     struct MXMBase *MXMBase;
  1274.  
  1275.     extern struct MenuItem *pop_getitem();
  1276.  
  1277.     #define pop_highlight(win, menu, state) pop_do_highlighting(win, menu, state, 0)
  1278.     #define pop_unhighlight(win, menu, state) pop_do_highlighting(win, menu, state, 1)
  1279.  
  1280.     static struct NewWindow pop_window =
  1281.     {
  1282.         0, 0,
  1283.         0, 0,
  1284.         0, 0,
  1285.         MOUSEBUTTONS | MOUSEMOVE,
  1286.         SMART_REFRESH | REPORTMOUSE | ACTIVATE | RMBTRAP,
  1287.         NULL,
  1288.         NULL,
  1289.         NULL,
  1290.         NULL,
  1291.         NULL,
  1292.         0, 0,
  1293.         0, 0,
  1294.         CUSTOMSCREEN
  1295.     };
  1296.  
  1297.     struct Screen *screen;
  1298.     struct Window *popwin;
  1299.     struct NewWindow *popnewwin;
  1300.     struct IntuiMessage *message;
  1301.     struct MenuItem *sel_item;
  1302.     SHORT pop_state, pop_newstate;
  1303.     SHORT mouse_moved;
  1304.     SHORT finished;
  1305.     SHORT class;
  1306.     SHORT code;
  1307.     ULONG exclude;
  1308.  
  1309.     static struct TextAttr TextAttr =
  1310.     {
  1311.         (UBYTE *)"topaz.font",
  1312.         8,
  1313.         FS_NORMAL,
  1314.         FPF_ROMFONT
  1315.     };
  1316.  
  1317.     struct TextFont *TextFont;
  1318.  
  1319.     extern struct SignalSemaphore *PopSemaphore;
  1320.  
  1321.         /* This routine is not reentrant. */
  1322.  
  1323.     ObtainSemaphore(PopSemaphore);
  1324.  
  1325.     if(!(popnewwin = AllocPublic(sizeof(struct NewWindow))))
  1326.     {
  1327.         ReleaseSemaphore(PopSemaphore);
  1328.         return((LONG) (-1));
  1329.     }
  1330.  
  1331.     if(menu == NULL || !menu->FirstItem)
  1332.     {
  1333.         FreeRem(popnewwin);
  1334.         ReleaseSemaphore(PopSemaphore);
  1335.         return((LONG) (-1));
  1336.     }
  1337.  
  1338.     if(!(menu->Flags & MENUENABLED))
  1339.     {
  1340.         FreeRem(popnewwin);
  1341.         ReleaseSemaphore(PopSemaphore);
  1342.         return((LONG) (-1));
  1343.     }
  1344.  
  1345.     pop_window.Width = menu->Width + 4;
  1346.     pop_window.Height = menu->Height + 2;
  1347.  
  1348.     if(pop_window.Height < 3)
  1349.     {
  1350.         struct MenuItem *pop_Item = menu->FirstItem;
  1351.  
  1352.         do
  1353.         {
  1354.             if(pop_Item->TopEdge+pop_Item->Height > pop_window.Height)
  1355.                 pop_window.Height=pop_Item->TopEdge+pop_Item->Height;
  1356.         }
  1357.         while(pop_Item = pop_Item->NextItem);
  1358.  
  1359.         pop_window.Height += 2;
  1360.     }
  1361.  
  1362.     if(menu->MenuName)
  1363.         pop_window.Height+=POPTITLEHEIGHT + 1;
  1364.  
  1365.     if(win == NULL)
  1366.         win = IntuitionBase->ActiveWindow;
  1367.  
  1368.     if(win == NULL)
  1369.     {
  1370.         FreeRem(popnewwin);
  1371.         ReleaseSemaphore(PopSemaphore);
  1372.         return((LONG) (-1));
  1373.     }
  1374.  
  1375.     if(win->CheckMark)
  1376.         pop_window.CheckMark = win->CheckMark;
  1377.  
  1378.     screen = win->WScreen;
  1379.     pop_window.Screen = screen;
  1380.  
  1381.     pop_window.LeftEdge = menu->LeftEdge;
  1382.     pop_window.TopEdge = menu->TopEdge;
  1383.  
  1384.     menu->Flags &= ~(POPREMEMBER | POPUSED);
  1385.  
  1386.     if((menu->Flags & POPREMEMBER) && (menu->Flags & POPUSED)) {
  1387.         pop_window.LeftEdge += screen->MouseX;
  1388.         pop_window.TopEdge += screen->MouseY;
  1389.     }
  1390.     else {
  1391.         if(menu->Flags & POPPOINTREL) {
  1392.             pop_window.LeftEdge += screen->MouseX;
  1393.             pop_window.TopEdge += screen->MouseY;
  1394.         }
  1395.         else if(menu->Flags & POPWINREL) {
  1396.             pop_window.LeftEdge += win->LeftEdge;
  1397.             pop_window.TopEdge += win->TopEdge;
  1398.         }
  1399.     }
  1400.  
  1401.     if(menu->Flags & POPTIDY) {
  1402.         if((pop_window.Width > screen->Width) || 
  1403.            (pop_window.Height > screen->Height))
  1404.         {
  1405.             FreeRem(popnewwin);
  1406.             ReleaseSemaphore(PopSemaphore);
  1407.                return((LONG) (-1));
  1408.         }
  1409.         if(pop_window.LeftEdge + pop_window.Width > screen->Width)
  1410.             pop_window.LeftEdge = screen->Width-pop_window.Width;
  1411.         if(pop_window.TopEdge + pop_window.Height > screen->Height)
  1412.             pop_window.TopEdge=screen->Height-pop_window.Height;
  1413.         if(pop_window.LeftEdge < screen->LeftEdge)
  1414.             pop_window.LeftEdge = screen->LeftEdge;
  1415.         if(pop_window.TopEdge < screen->TopEdge)
  1416.             pop_window.TopEdge = screen->TopEdge;
  1417.     }
  1418.     else {
  1419.         if(pop_window.LeftEdge + pop_window.Width > screen->Width)
  1420.             pop_window.Width = screen->Width - 
  1421.               pop_window.LeftEdge;
  1422.         if(pop_window.TopEdge + pop_window.Height > screen->Height)
  1423.             pop_window.Height = screen->Height -
  1424.               pop_window.TopEdge;
  1425.     }
  1426.  
  1427.     CopyMem(&pop_window,popnewwin,sizeof(struct NewWindow));
  1428.  
  1429.     popwin = OpenWindow(popnewwin);
  1430.  
  1431.     FreeRem(popnewwin);
  1432.  
  1433.     if(popwin == NULL)
  1434.     {
  1435.         ReleaseSemaphore(PopSemaphore);
  1436.         return((LONG) (-1));
  1437.     }
  1438.  
  1439.     if(!(TextFont = OpenFont(&TextAttr)))
  1440.     {
  1441.         CloseWindow(popwin);
  1442.         ReleaseSemaphore(PopSemaphore);
  1443.         return((LONG) (-1));
  1444.     }
  1445.  
  1446. /*    LockLayers(popwin->RPort->Layer->LayerInfo);*/
  1447.  
  1448.     SetFont(popwin->RPort,TextFont);
  1449.  
  1450.     pop_render(popwin, menu);
  1451.  
  1452.     pop_state = pop_computestate(popwin, menu);
  1453.  
  1454.     if(pop_state >= 0)
  1455.         pop_highlight(popwin, menu, pop_state);
  1456.  
  1457.     finished = 0;
  1458.     while(1) {
  1459.         mouse_moved = 0;
  1460.         WaitPort(popwin->UserPort);
  1461.         while(message = (struct IntuiMessage *)GetMsg(popwin->UserPort)) {
  1462.             class = message->Class;
  1463.             code = message->Code;
  1464.             ReplyMsg(message);
  1465.  
  1466.             switch(class) {
  1467.               case MOUSEMOVE:
  1468.                   mouse_moved = 1;
  1469.                 break;
  1470.               case MOUSEBUTTONS:
  1471.                   switch(code) {
  1472.                   case SELECTDOWN:
  1473.                       if((menu->Flags & POPLEFTBUTTON) &&
  1474.                        (menu->Flags & POPTRIGGERDOWN))
  1475.                            finished = 1;
  1476.                     break;
  1477.                   case SELECTUP:
  1478.                       if((menu->Flags & POPLEFTBUTTON) &&
  1479.                        (menu->Flags & POPTRIGGERUP))
  1480.                            finished = 1;
  1481.                     break;
  1482.                   case MENUDOWN:
  1483.                       if((menu->Flags & POPRIGHTBUTTON) &&
  1484.                        (menu->Flags & POPTRIGGERDOWN))
  1485.                            finished = 1;
  1486.                     break;
  1487.                   case MENUUP:
  1488.                       if((menu->Flags & POPRIGHTBUTTON) &&
  1489.                        (menu->Flags & POPTRIGGERUP))
  1490.                            finished = 1;
  1491.                     break;
  1492.                   default:
  1493.                       break;
  1494.                 }
  1495.                 break;
  1496.               default:
  1497.                   break;
  1498.             }
  1499.         }
  1500.  
  1501.         if(finished) {
  1502.             pop_state = pop_computestate(popwin, menu);
  1503.             if(pop_state >= 0) {
  1504.                 if(menu->Flags & POPREMEMBER) {
  1505.                     menu->Flags |= POPUSED;
  1506.                     menu->LeftEdge = -1 * popwin->MouseX;
  1507.                     menu->TopEdge =  -1 * popwin->MouseY;
  1508.                 }
  1509.  
  1510.                 sel_item = pop_getitem(menu, pop_state);
  1511.                 if(sel_item->Flags & CHECKIT) {
  1512.                   if(sel_item->Flags & CHECKED) {
  1513.                     pop_state = -1;
  1514.                     if(sel_item->Flags & MENUTOGGLE)
  1515.                       sel_item->Flags &= ~CHECKED;
  1516.                   }
  1517.                   else {
  1518.                     sel_item->Flags |= CHECKED;
  1519.  
  1520.                     exclude = sel_item->MutualExclude;
  1521.                     if(exclude) {
  1522.                       sel_item = menu->FirstItem;
  1523.                       while(sel_item) {
  1524.                         if(exclude & 1)
  1525.                           sel_item->Flags &= ~CHECKED;
  1526.                         exclude >>= 1;
  1527.                         sel_item = sel_item->NextItem;
  1528.                       }
  1529.                     }
  1530.                   }
  1531.                 }
  1532.             }
  1533. /*                        UnlockLayers(popwin->RPort->Layer->LayerInfo);*/
  1534.             CloseWindow(popwin);
  1535.             ReleaseSemaphore(PopSemaphore);
  1536.             CloseFont(TextFont);
  1537.             return((LONG) pop_state);
  1538.         }
  1539.  
  1540.         if(mouse_moved) {
  1541.             pop_newstate = pop_computestate(popwin, menu);
  1542.             if(pop_newstate != pop_state) {
  1543.                 if(pop_state >= 0)
  1544.                     pop_unhighlight(popwin,
  1545.                       menu, pop_state);
  1546.                 if(pop_newstate >= 0)
  1547.                     pop_highlight(popwin, 
  1548.                       menu, pop_newstate);
  1549.                 pop_state = pop_newstate;
  1550.             }
  1551.         }
  1552.     }
  1553. }
  1554.  
  1555. VOID
  1556. Announce()
  1557. {
  1558.     struct MXMBase *MXMBase;
  1559.  
  1560.     static UBYTE AnyChannel[4] = {1,2,4,8};
  1561.  
  1562.     static ULONG SoundData[1086] =
  1563.     {
  1564.         0xFAF5F4D0,0xCF1720E4,0xEF1F1F3F,0x6410EF4F,0x7008F6F0,0xBCEF28C0,
  1565.         0x80BF00C8,0xEFE09FFF,0x7F60E73F,0x78657F60,0xA8DF7B00,0x809B8083,
  1566.         0xFF008083,0x3F400F3E,0x00FF7F7F,0x20FF7D50,0x2F408080,0xDF208080,
  1567.         0x8F87DF5E,0xE0803F7F,0x606B7010,0x7F7F6080,0xEF20D0DF,0xA0808137,
  1568.         0xD0809FF8,0x0F7F7FD0,0xFF7F7F40,0x4800DB77,0x608080BF,0xC08FB280,
  1569.         0x801F7FC0,0xBF5F677F,0x7F60BF7F,0x7F20CBD0,0x80AF3680,0x808300C8,
  1570.         0xCFC08FFF,0x7F78EB37,0x7F7F7F7E,0xE0FF7F60,0xC0A7A097,0xF7E08080,
  1571.         0xBFE8B0BF,0xA4BF7F7F,0x20FF7F7F,0x7F7F40D7,0x6F7F1097,0xB3A0BFF8,
  1572.         0x808081FF,0xC0A7B59F,0xFF7F70D8,0x3F7F7F7F,0x7800FF7F,0x70C09FC0,
  1573.         0xB7E7C080,0x80DF0090,0x9FB0CF6F,0x7F00DF7F,0x7F7F7828,0x0F6F7F20,
  1574.         0xA0AFCFE2,0xD0808083,0xF7D0949B,0xBF2F7F40,0xF02F7F7F,0x7F50123F,
  1575.         0x7F60C89F,0xCFE5E0A0,0x8080CFF0,0xA085B7FF,0x5F7000FF,0x777F7F60,
  1576.         0x282F7F7F,0x1097BFEB,0xE4C08080,0x8FFBC080,0x97DF2F6C,0x30E9377F,
  1577.         0x7F70402F,0x5F7F50C0,0xAFDFF8D0,0x888080D7,0xE0A081BF,0x0F4F4000,
  1578.         0xFF7F7F7F,0x48304F7F,0x7800A9CF,0xFFE8A880,0x80AFEEC0,0x809FEF37,
  1579.         0x4818F73F,0x7F7F6032,0x3F6F7F40,0xC0BBFB00,0xC0808087,0xDFD88881,
  1580.         0xBF1F3F28,0xF40F7F7F,0x78403B5F,0x7F7000AF,0xDF08E0A0,0x8080BFDA,
  1581.         0xA8809FF7,0x2F2800FF,0x3F7F7F50,0x304F7F78,0x30D0CFFF,0x04C08080,
  1582.         0x9FD7C080,0x87CF1F2E,0x08F71F7F,0x7F68303F,0x777F6000,0xCBEF14E0,
  1583.         0x908083BF,0xD0A0809F,0xFF2B14F4,0xFF4F7F7E,0x4033677F,0x7420D0DF,
  1584.         0x1300C080,0x81B7D3B0,0x808FD71B,0x2000F72F,0x7F7F602D,0x4F7F7E48,
  1585.         0xF0DFFF14,0xE090809F,0xCFC89080,0xAFFF2000,0xEE0F577F,0x70343B6F,
  1586.         0x7F6810E1,0xF71B00B0,0x808BBFD0,0xA8808FDF,0x1908EAF7,0x2F7F7E48,
  1587.         0x2D577F7C,0x40F0EF17,0x18E09083,0xAFD1C084,0x80BFFF10,0xF2EB0F5F,
  1588.         0x7E60303F,0x777F6010,0xF1072100,0xB0889FCF,0xC8A0809F,0xDF0F00E1,
  1589.         0xFB377768,0x402F5F7F,0x7428F8FF,0x1F14D094,0x93BFD2B0,0x8487BFFF,
  1590.         0x04E2E71B,0x5F74502B,0x477F7F48,0x08FD1724,0x00B08FAF,0xD5C49080,
  1591.         0x9FEF08EC,0xDEFF3F6A,0x5832375F,0x7F682401,0x0F2710D0,0xA0A7CBD0,
  1592.         0xA8818FCF,0xFDF4D8E7,0x1F5B6040,0x2D4F7F7C,0x40100B27,0x24F0B09F,
  1593.         0xBFD6C088,0x83AFEBF8,0xE0D7FF3F,0x61482C3F,0x6F7F6020,0x0B1F3010,
  1594.         0xD0A2B7D7,0xCCA08097,0xCFF7E4CE,0xE71F5B54,0x322F5F7F,0x74401017,
  1595.         0x2F20F0B4,0xADCFD8B8,0x8887B7EB,0xECD1D7FF,0x3F544029,0x3F777F60,
  1596.         0x20152D34,0x08C8AEBF,0xDBC89881,0x9FD7EED8,0xCBEF2B4F,0x42282F5F,
  1597.         0x7F703416,0x273C20E8,0xB5BBD7D8,0xA8828FBF,0xE9E0C6CF,0x0F3F4C30,
  1598.         0x27477B78,0x50241F39,0x3000D0BB,0xCFDAC090,0x87A7D7E0,0xCCCBEF2F,
  1599.         0x4638263B,0x677E6030,0x21333C20,0xE0C0C7DD,0xD0A88597,0xBFDFD0C2,
  1600.         0xD7173F3C,0x262D4F7B,0x7440242F,0x3F3000CC,0xC7DBDCC0,0x8C8FAFD7,
  1601.         0xD4C0C7FF,0x2F3C2823,0x3F6F7A58,0x302A3F40,0x18E0C7D7,0xDFC8A08D,
  1602.         0x9FC7D4C4,0xBFDF1733,0x2C202F5B,0x7668402E,0x3B463000,0xD4D7E3D8,
  1603.         0xB49097B7,0xD1C6B9CB,0xFF272C20,0x23476F70,0x5034394A,0x4010E0D5,
  1604.         0xE3E2C4A0,0x8FA7C7CA,0xB8BBDF0F,0x2B201B37,0x5F756040,0x37475028,
  1605.         0xF4D9DFE6,0xD0A8909F,0xBDC8BCB5,0xCFFF1F22,0x1B274F6F,0x68503A43,
  1606.         0x504008E4,0xDFE8E0C0,0x9895AFC7,0xC0B1BFE7,0x1722181D,0x3B677058,
  1607.         0x403F4F4C,0x28F2E0E7,0xE9D0A892,0xA7BFC4B4,0xB3D7FF1F,0x1A142B4F,
  1608.         0x6F60443A,0x4B544008,0xE6E7F0E4,0xC0969DBB,0xC7BAADBF,0xEF131A10,
  1609.         0x1B3F5F64,0x503C4756,0x4A20F8EC,0xF3F0D0A8,0x9DAFC4C0,0xAEB3D7FF,
  1610.         0x150C0F2B,0x4F655840,0x3F535840,0x10F2F5F8,0xE2B89DA7,0xBFC0B0A7,
  1611.         0xBFEF0B0C,0x06173F5F,0x6048414F,0x5F502000,0xF8FCF0D0,0xA49FB5BF,
  1612.         0xB0A3AFCF,0xFF0A060F,0x2F556054,0x454B5B58,0x340CFCFD,0xF8E0B8A2,
  1613.         0xAFBFB9A8,0xA7BFEF05,0x04051F3F,0x5D564447,0x575E4820,0x020000F0,
  1614.         0xC8AAADBD,0xC0B0A3B7,0xDBFB00FD,0x0B2F5356,0x48414F5F,0x58300C04,
  1615.         0x0700E0B8,0xABB9C3B8,0xA1A7BFED,0xFCF8FF1B,0x3F564C40,0x495D6040,
  1616.         0x200B0B06,0xF0C8B2B6,0xBFBAA89F,0xB7DBF3F4,0xF70B2F4F,0x50424557,
  1617.         0x62543011,0x0D0D00D8,0xB8B5BFC0,0xB0A0ABCF,0xEBF3F3FF,0x1F475042,
  1618.         0x3D4F5F5A,0x40180C11,0x08E8C4B7,0xBFC6C0A8,0xA5BFDFF2,0xF0F70F2F,
  1619.         0x4B44383F,0x575C4828,0x13131100,0xD4C0BFC6,0xC2B0A4B7,0xD7E9ECEF,
  1620.         0xFF1F3D42,0x383B4F5C,0x50382013,0x180CE8CC,0xC4C9CAC0,0xA8A9C7DF,
  1621.         0xE8E7F30F,0x2B3E3631,0x3F575844,0x2A1A1E1C,0x00DACCCD,0xCFC6B0A4,
  1622.         0xB7D7E1E0,0xE7FD1B35,0x362E374F,0x5C503822,0x212410EC,0xD4D0D0C8,
  1623.         0xB8A6ABC7,0xD9DADFEF,0x0B273430,0x33475B58,0x48322728,0x2000E0D5,
  1624.         0xD3CCC0AC,0xA3B7CFD5,0xD4DFFB17,0x2D302E3F,0x5A605440,0x302E2C18,
  1625.         0xF0D8D5D0,0xC4B0A0A7,0xBFCFCDD3,0xEB071F32,0x2E374F66,0x60503A31,
  1626.         0x322800E0,0xD6D2C8B8,0xA29AAFC7,0xCBCBDDFB,0x172F3232,0x47656858,
  1627.         0x44383430,0x14E8D6D4,0xCCBCA899,0x9FBFCBC9,0xD3EF0F2B,0x34333D5B,
  1628.         0x6A604839,0x343020F8,0xD8D2D2C6,0xB2A09FB7,0xCBCECEDF,0xFF1F2F2E,
  1629.         0x2F475F60,0x503A3535,0x2C0CE8D9,0xDAD4C0AA,0xA0AFBFCC,0xC8CFEF0D,
  1630.         0x23272737,0x57625844,0x3A3B3820,0x00E2DFDE,0xD0B8A4A7,0xBBC7C5C6,
  1631.         0xDBFB161F,0x212B475D,0x5C4C3E3F,0x403410F2,0xE7E7DCC4,0xACA5AFBF,
  1632.         0xC2BDC7DF,0xFF191A1F,0x35576158,0x48424745,0x2800EEE9,0xE4D0B4A0,
  1633.         0xA5B7BEB8,0xBBCFEF13,0x1A19274D,0x63615246,0x494D4014,0xF4ECE8DC,
  1634.         0xC0A49DAF,0xBBB8B3BF,0xDFFF1B1A,0x1F3F5F64,0x5A4A474C,0x482000EB,
  1635.         0xEAE0CCB0,0x9EA7BBBE,0xB6BFD7FB,0x161A192B,0x4F5F5848,0x41454830,
  1636.         0x0AF2EFEE,0xE0C2ACAB,0xBDC6BCB7,0xCBE70712,0x0E153753,0x54463E43,
  1637.         0x4B442000,0xF8FCF0D8,0xC0AFB9C5,0xC0B1B7D3,0xEF030407,0x1F3F524A,
  1638.         0x40454F50,0x38180303,0x00ECCCB5,0xB7C2C0B2,0xADBFDFF7,0xFCFB0B2F,
  1639.         0x474C403F,0x4F5A4C2C,0x10090C00,0xE0C0B5BF,0xC3B8A6AF,0xCBEBF7F6,
  1640.         0xFD1B3F4D,0x443C475A,0x5A40200E,0x0F0CF0D0,0xB8BBC3C0,0xA8A3B7DB,
  1641.         0xEFF0F307,0x2F47483C,0x3F555D50,0x30140F12,0x00E0C0BB,0xC3C2B4A4,
  1642.         0xAFCFEDF1,0xF0FB1B3B,0x49403947,0x5B584020,0x0F1310F4,0xD0BFC5CB,
  1643.         0xC4B0A7BF,0xDFF0EBEE,0xFF273F40,0x30374F5A,0x48301819,0x1E10E8CA,
  1644.         0xCBD1CCB8,0xA6AFCBE5,0xE2DFEF0F,0x2F3B3133,0x475F5840,0x28202420,
  1645.         0x00D8CBCF,0xCCC0A8A1,0xB7D7DEDB,0xE3FF1F37,0x39353F5B,0x62503425,
  1646.         0x24200CE4,0xC8C9CCC0,0xA89FABC7,0xDDDDDFF7,0x17353C37,0x3F53645A,
  1647.         0x40282323,0x14F0D0C7,0xCDC8B4A0,0xA3BBD7DE,0xDBE7FF2B,0x3A39394B,
  1648.         0x5F644830,0x28272004,0xE0C9CDCA,0xBAA29FAF,0xC7DBD8DF,0xFB1F353A,
  1649.         0x38435F69,0x58402C2A,0x2410E8CC,0xC7CDC0AC,0x9CA7BFD7,0xDCDBEF0F,
  1650.         0x2F3A3639,0x4F656048,0x2C272718,0xF8D8C9CE,0xCAB8A29F,0xBBD3DEDB,
  1651.         0xE7FF2535,0x34343F5B,0x60503227,0x27200AE4,0xD0D1D4C4,0xB0A4AFCB,
  1652.         0xDAD9DBF3,0x0F272F2F,0x374D5E54,0x40302D28,0x1800DCD4,0xD7D0B8A8,
  1653.         0xAABBD3D7,0xD5DFFF1F,0x2B2D313F,0x575C4832,0x2E2C2208,0xEAD6D9D8,
  1654.         0xC0ACA8B5,0xCBD7D4D7,0xF7152327,0x2B374B5B,0x50383031,0x2A1800E2,
  1655.         0xDBDED0B8,0xABAFBFCF,0xD4D3DFFF,0x1B21252F,0x3F535640,0x34343220,
  1656.         0x08F0E0E0,0xDCC4B0AF,0xBAC7D1CF,0xD7EF0F1D,0x1F27374B,0x59503835,
  1657.         0x38301800,0xE5E1E1D0,0xB8ABB3BF,0xCFD0CFDF,0xFF1B1F23,0x2D3F5554,
  1658.         0x40313432,0x2004ECE1,0xE4E0C4B0,0xB3BFCDD3,0xD0D7F713,0x1B1C2335,
  1659.         0x47524832,0x32372C14,0x00EAE8E9,0xD8C0B3BD,0xC9CFCCCC,0xDFFF1512,
  1660.         0x17273F4F,0x4C38313B,0x3C2408F6,0xEEF0E8C8,0xB1B7C7CC,0xC8C6CFEF,
  1661.         0x0E100D1B,0x37494E42,0x363B4438,0x1800F7F4,0xECD8B8AF,0xBDC5C2BE,
  1662.         0xC5DDFF0F,0x0C132B47,0x5350423C,0x45442808,0xF8F1ECDC,0xC0A8AFBF,
  1663.         0xC2BDBFD3,0xEF0F1613,0x253F5354,0x483C3D43,0x3410F5EE,0xEAE0CCB0,
  1664.         0xABBFCBC7,0xC4CFEB0B,0x1B16192F,0x4B4E4438,0x30373820,0xF8EDEFEB,
  1665.         0xDCC4B5BF,0xD5D4CCCF,0xDFFF1314,0x0C1B3742,0x3C30282D,0x362808F8,
  1666.         0xFAFAF0E0,0xC6C3D5D9,0xCDC7D5E7,0xFF090107,0x1F393A35,0x31323D40,
  1667.         0x24080303,0xFCE8D0BE,0xC7D2C8BE,0xC3D7EBFF,0x02FF1537,0x403E3B37,
  1668.         0x3F473814,0x060400F0,0xD8C0BBCB,0xCABDBDCB,0xDFF70501,0x0B273F41,
  1669.         0x3E3A3B44,0x40200803,0x00F4E2CA,0xBABFCEC4,0xBDC7D7EF,0xFF060517,
  1670.         0x373F3E3A,0x373D4334,0x120501FC,0xF0D8C2BF,0xCFCEC2BF,0xCDDFFB03,
  1671.         0x00071F3B,0x3E38353B,0x4540220C,0x0605FCE8,0xCCC0C9CF,0xC6BCBFD7,
  1672.         0xEFFDFCFF,0x17333F3C,0x34374545,0x32180806,0x03F2D8C4,0xC7CECAC0,
  1673.         0xBDCBE7FB,0xFDFF0D27,0x3B3D3534,0x3F463A20,0x0A0505FA,0xE0CAC7CF,
  1674.         0xD0C8BEC7,0xDFF7FDFC,0x031B333C,0x342D3743,0x40281007,0x0804F0D4,
  1675.         0xC8CFD7D0,0xC0BFCFED,0xFBF7F707,0x2737352B,0x2F3F4838,0x200D0D0E,
  1676.         0x00E4CDCF,0xD7D4C4B9,0xBFDBEFF4,0xF0FB172F,0x38302E3B,0x4B483018,
  1677.         0x11120AF4,0xD4C8CFD3,0xC8B6B7CB,0xE7F3F0F5,0x0B2B3B38,0x3037474E,
  1678.         0x40201011,0x0E00E0C8,0xCBD3CEBC,0xB6BFDFF5,0xF5F5FF1F,0x3738302F,
  1679.         0x3B484024,0x100D0E04,0xECD2CDD7,0xD8CCBEBF,0xD7EFF5F1,0xF70F2731,
  1680.         0x2C262F3F,0x40301A12,0x131000E4,0xD6DADDD4,0xC4BFCBDF,0xEEEBEFFF,
  1681.         0x17272822,0x293B4238,0x24191819,0x0CF2E0DD,0xDFDACCBD,0xBFD7E7E6,
  1682.         0xE6F30B1F,0x27222335,0x43403020,0x1C1F1800,0xE8E0E2E0,0xD2C1BFCF,
  1683.         0xDFE4E1E9,0xFD131F20,0x1E2B3D40,0x34281E1F,0x2010F8E6,0xE6E4DCCC,
  1684.         0xC0C7D7E2,0xE0E1EFFF,0x171E1A1F,0x333F3A30,0x2420241C,0x02F0E9E8,
  1685.         0xE1D6C2BE,0xCFDFDCDA,0xE5FB0F1D,0x1A192B3F,0x40362A22,0x252810F8,
  1686.         0xECECE8E0,0xCCBEC7DB,0xE0D8DDEF,0xFF151A13,0x1D333E36,0x2C242226,
  1687.         0x2002F0F1,0xF0E8D8CA,0xC7D5E2DC,0xD9E5F907,0x0F100F1F,0x35342925,
  1688.         0x24272614,0x00F8FCF4,0xE4D4CCCF,0xDEDDD4D9,0xEFFE070A,0x0A172F37,
  1689.         0x2E282A2D,0x2C200AFD,0xFFFAEAD8,0xCCCBD5D8,0xD0CFDFF3,0xFF070913,
  1690.         0x27393630,0x2D2F3129,0x1400FCFA,0xF0E0D0C8,0xCED8D6D0,0xD9EFFF07,
  1691.         0x0C0F1D2F,0x38302A2A,0x2C292008,0xFAFCF8E8,0xD8CFCFDB,0xDED6D7EB,
  1692.         0xFB030909,0x0F23312C,0x2525272A,0x241000FF,0x00F4E4D8,0xD3DAE1D8,
  1693.         0xD2DDEFFB,0x01030617,0x2B2C2425,0x292B2A1C,0x08030600,0xECE0D6D6,
  1694.         0xDEDCD1D5,0xE7F4FBFF,0x030D1F2C,0x26262A2C,0x2B241404,0x0603F4E4,
  1695.         0xDCD6D7DC,0xD6D2DFEF,0xF7FE0309,0x17272823,0x272B2925,0x1A0A0306,
  1696.         0x00E8E0DB,0xDADEDCD5,0xDBEDF7FB,0xFF070F1F,0x28212127,0x28231C0D,
  1697.         0x010500F0,0xE4E1DEDF,0xE2DCDAE7,0xF7FBFF05,0x09172320,0x1B1F2621,
  1698.         0x1A120501,0x04FAEAE6,0xE5E3E4E4,0xE0E6F7FC,0xFC02090E,0x191E1817,
  1699.         0x1F201812,0x0A030402,0xF4EAECEC,0xE8E7E4E3,0xEFF9F9F8,0xFF070F17,
  1700.         0x18151B24,0x2018120C,0x0A0A00F0,0xEAEBE8E3,0xDEDCE3EF,0xF6F5FA03,
  1701.         0x0F171D1B,0x1D262920,0x18100A07,0x02F4E6E5,0xE6E0DCDB,0xDDE7F6FA,
  1702.         0xF9FF0F19,0x1F211F21,0x2A24160F,0x0A0300F8,0xE8E0E6E6,0xDEDDDFE5,
  1703.         0xF5FFFCFD,0x0D171B1F,0x1C191F26,0x180C0A07,0x0200F4E6,0xE9EEE8E0,
  1704.         0xE1E5EEFA,0xFAF7FF0F,0x13141616,0x1B232012,0x0F100C07,0x00F2EDF1,
  1705.         0xECE1DEE0,0xE3EFF2EF,0xF5030D0F,0x15181B26,0x281C1618,0x140C04F8,
  1706.         0xEEEFECE0,0xD8DBDFE5,0xEFEEEFFF,0x0E10131A,0x1F252B22,0x18191810,
  1707.         0x05FCF0ED,0xEEE4D8D9,0xDFE5EDEE,0xEFFB0D12,0x14171D23,0x29221814,
  1708.         0x150E04FA,0xF0EDEEE8,0xDEDBE1E7,0xEEF3F3FB,0x0B121114,0x191E2322,
  1709.         0x16111310,0x04FCF6F0,0xF1F0E4DF,0xE5EBEEF2,0xF4F9030E,0x0D0D1318,
  1710.         0x1C1D1810,0x11130C00,0xFCF8F7F6,0xF0E4E5EB,0xEDEEEFF1,0xF9030806,
  1711.         0x0911171B,0x1A141318,0x160C0400,0xFDFBF5EA,0xE3E7E9E7,0xE8EBEFF9,
  1712.         0x0202050F,0x171C1F20,0x1B1E1F15,0x0B0600FA,0xF4EAE0DE,0xE2E1DFE5,
  1713.         0xEBF3FF07,0x070F1C21,0x2324211E,0x1F1A0C02,0x00F8F1EA,0xE0DADFE2,
  1714.         0xE1E3EBF3,0xFF070B0E,0x171F2324,0x221C1B1A,0x1003FEF9,0xF3ECE5DD,
  1715.         0xDDE3E5E6,0xEBF1FB05,0x0B0C111B,0x2020201C,0x18191508,0x00FCF8F2,
  1716.         0xECE4DFE3,0xE7E7E7ED,0xF5FF070A,0x0C131E20,0x1F1C1818,0x181001FC,
  1717.         0xFAF7F0E8,0xE1E1E7EA,0xE9EBF3FD,0x070C0C0F,0x1921201C,0x18161612,
  1718.         0x04FCF9F8,0xF3EDE6E2,0xE7EEEEEC,0xF2FB030B,0x0C0B0F1A,0x1B181411,
  1719.         0x11110A00,0xFCFBF9F6,0xF0E9EAEF,0xF0EFF1F6,0xFD050806,0x09111616,
  1720.         0x14100F13,0x100600FF,0xFFFCF8F0,0xECEEF2F0,0xEEEFF7FE,0x03030207,
  1721.         0x11151411,0x11131410,0x08010100,0xFCF4EDEB,0xEEEFECEC,0xEFF7FF02,
  1722.         0x01050E15,0x16151314,0x16140A04,0x0000FCF6,0xF0EAECEE,0xECEDEFF6,
  1723.         0xFD030306,0x0C121516,0x14121212,0x0C0400FF,0xFCF8F3ED,0xECEEEEEF,
  1724.         0xF1F5FBFF,0x0406090E,0x11131211,0x100F0C08,0x0200FFFC,0xF7F4F1F0,
  1725.         0xF1F2F2F5,0xF9FDFF04,0x05070B0F,0x0F10100D,0x0D0D0803,0x0100FCFB,
  1726.         0xF6F0F0F3,0xF3F3F6F7,0xFC020402,0x060B0E11,0x100C0B0E,0x0D070200,
  1727.         0xFEFEFBF2,0xEEF0F3F4,0xF4F4F7FF,0x05040309,0x0F121310,0x0C0F100B,
  1728.         0x0300FEFD,0xFCF4ECED,0xF2F4F2F3,0xF6FD0507,0x04070F14,0x14130F0E,
  1729.         0x110E04FE,0xFEFCF9F4,0xECEAEEF2,0xF1F2F6FD,0x050A090A,0x0F151614,
  1730.         0x100C0D0C,0x04FEFAF9,0xF8F6F0EC,0xEFF3F5F7,0xF9FD030A,0x0A090D11,
  1731.         0x1212100B,0x0A0A0500,0xFCFBF9F8,0xF4F0F1F5,0xF6F7F9FD,0x01050807,
  1732.         0x090D0F0D,0x0C0B0909,0x0702FFFE,0xFEFBF8F6,0xF4F5F8F7,0xF7FAFF00,
  1733.         0x03050407,0x0B0B0A0A,0x0A0A0B08,0x03010202,0x00FCF7F6,0xF8F7F5F4,
  1734.         0xF6FAFEFF,0xFEFF060B,0x0C0C0D0F,0x11100C08,0x060603FD,0xF7F4F3F3,
  1735.         0xF0EEEFF3,0xF9FBFDFF,0x030B0F0F,0x0F121615,0x120D0807,0x0600F6F1,
  1736.         0xF0EEEEEC,0xE9EFF7FB,0xFDFF050D,0x13151413,0x1716120C,0x0500FFFC,
  1737.         0xF4EEEDED,0xEEEFEFF1,0xF9FF0306,0x090E1216,0x14100F10,0x0C0701FD,
  1738.         0xFBFCF8F1,0xF0F1F2F4,0xF6F6F9FF,0x06060709,0x0C0F110D,0x0A0C0C08,
  1739.         0x0400FCFD,0xFDF6F2F3,0xF4F5F7F6,0xF6FE0304,0x0608090E,0x110E0A0B,
  1740.         0x0B080400,0xFBFAFCF9,0xF4F3F5F6,0xF8FAF9FD,0x03070708,0x090B0E0E,
  1741.         0x0A060706,0x0200FCF9,0xF9FBF9F6,0xF7F9FBFD,0xFFFF0307,0x09090808,
  1742.         0x08080704,0x010000FE,0xFCFBFBFC,0xFEFEFEFF,0x00010202,0x03030303,
  1743.         0x02000000,0xFF000000,0x00010203,0x03030305,0x040100FF,0xFDFDFDFC,
  1744.         0xFAFCFEFE,0xFFFFFF03,0x07070709,0x0A090A08,0x03030300,0xFBF8F6F5
  1745.     };
  1746.  
  1747.     struct IOAudio    *AudioBlock;
  1748.     struct MsgPort    *ReplyPort;
  1749.  
  1750.     if(AudioBlock = (struct IOAudio *)AllocMem(sizeof(struct IOAudio),MEMF_PUBLIC | MEMF_CLEAR))
  1751.     {
  1752.         if(ReplyPort = (struct MsgPort *)CreatePort(NULL,0))
  1753.         {
  1754.             AudioBlock -> ioa_Data                    = &AnyChannel[0];
  1755.             AudioBlock -> ioa_Length                = 4;
  1756.             AudioBlock -> ioa_Request . io_Message . mn_ReplyPort    = ReplyPort;
  1757.             AudioBlock -> ioa_Request . io_Message . mn_Node.ln_Pri    = 90;
  1758.  
  1759.             if(!OpenDevice("audio.device",0,AudioBlock,0))
  1760.             {
  1761.                 AudioBlock -> ioa_Request . io_Command    = CMD_WRITE;
  1762.                 AudioBlock -> ioa_Request . io_Flags    = ADIOF_PERVOL;
  1763.                 AudioBlock -> ioa_Period        = 428;
  1764.                 AudioBlock -> ioa_Volume        = 64;
  1765.                 AudioBlock -> ioa_Cycles        = 3;
  1766.                 AudioBlock -> ioa_Data            = (UBYTE *)&SoundData[0];
  1767.                 AudioBlock -> ioa_Length        = 4344;
  1768.  
  1769.                 BeginIO(AudioBlock);
  1770.                 WaitIO(AudioBlock);
  1771.                 AbortIO(AudioBlock);
  1772.  
  1773.                 CloseDevice(AudioBlock);
  1774.             }
  1775.  
  1776.             DeletePort(ReplyPort);
  1777.         }
  1778.  
  1779.         FreeMem(AudioBlock,sizeof(struct IOAudio));
  1780.     }
  1781. }
  1782.  
  1783. LONG
  1784. CheckSumCRC(Mem,Size)
  1785. UBYTE *Mem;
  1786. LONG Size;
  1787. {
  1788.     struct MXMBase *MXMBase;
  1789.  
  1790.     /* crctab calculated by Mark G. Mendel, Network Systems Corporation */
  1791.  
  1792.     static unsigned short crctab[256] =
  1793.     {
  1794.         0x0000,0x1021,0x2042,0x3063,0x4084,0x50A5,0x60C6,0x70E7,
  1795.         0x8108,0x9129,0xA14A,0xB16B,0xC18C,0xD1AD,0xE1CE,0xF1EF,
  1796.         0x1231,0x0210,0x3273,0x2252,0x52B5,0x4294,0x72F7,0x62D6,
  1797.         0x9339,0x8318,0xB37B,0xA35A,0xD3BD,0xC39C,0xF3FF,0xE3DE,
  1798.         0x2462,0x3443,0x0420,0x1401,0x64E6,0x74C7,0x44A4,0x5485,
  1799.         0xA56A,0xB54B,0x8528,0x9509,0xE5EE,0xF5CF,0xC5AC,0xD58D,
  1800.         0x3653,0x2672,0x1611,0x0630,0x76D7,0x66F6,0x5695,0x46B4,
  1801.         0xB75B,0xA77A,0x9719,0x8738,0xF7DF,0xE7FE,0xD79D,0xC7BC,
  1802.         0x48C4,0x58E5,0x6886,0x78A7,0x0840,0x1861,0x2802,0x3823,
  1803.         0xC9CC,0xD9ED,0xE98E,0xF9AF,0x8948,0x9969,0xA90A,0xB92B,
  1804.         0x5AF5,0x4AD4,0x7AB7,0x6A96,0x1A71,0x0A50,0x3A33,0x2A12,
  1805.         0xDBFD,0xCBDC,0xFBBF,0xEB9E,0x9B79,0x8B58,0xBB3B,0xAB1A,
  1806.         0x6CA6,0x7C87,0x4CE4,0x5CC5,0x2C22,0x3C03,0x0C60,0x1C41,
  1807.         0xEDAE,0xFD8F,0xCDEC,0xDDCD,0xAD2A,0xBD0B,0x8D68,0x9D49,
  1808.         0x7E97,0x6EB6,0x5ED5,0x4EF4,0x3E13,0x2E32,0x1E51,0x0E70,
  1809.         0xFF9F,0xEFBE,0xDFDD,0xCFFC,0xBF1B,0xAF3A,0x9F59,0x8F78,
  1810.         0x9188,0x81A9,0xB1CA,0xA1EB,0xD10C,0xC12D,0xF14E,0xE16F,
  1811.         0x1080,0x00A1,0x30C2,0x20E3,0x5004,0x4025,0x7046,0x6067,
  1812.         0x83B9,0x9398,0xA3FB,0xB3DA,0xC33D,0xD31C,0xE37F,0xF35E,
  1813.         0x02B1,0x1290,0x22F3,0x32D2,0x4235,0x5214,0x6277,0x7256,
  1814.         0xB5EA,0xA5CB,0x95A8,0x8589,0xF56E,0xE54F,0xD52C,0xC50D,
  1815.         0x34E2,0x24C3,0x14A0,0x0481,0x7466,0x6447,0x5424,0x4405,
  1816.         0xA7DB,0xB7FA,0x8799,0x97B8,0xE75F,0xF77E,0xC71D,0xD73C,
  1817.         0x26D3,0x36F2,0x0691,0x16B0,0x6657,0x7676,0x4615,0x5634,
  1818.         0xD94C,0xC96D,0xF90E,0xE92F,0x99C8,0x89E9,0xB98A,0xA9AB,
  1819.         0x5844,0x4865,0x7806,0x6827,0x18C0,0x08E1,0x3882,0x28A3,
  1820.         0xCB7D,0xDB5C,0xEB3F,0xFB1E,0x8BF9,0x9BD8,0xABBB,0xBB9A,
  1821.         0x4A75,0x5A54,0x6A37,0x7A16,0x0AF1,0x1AD0,0x2AB3,0x3A92,
  1822.         0xFD2E,0xED0F,0xDD6C,0xCD4D,0xBDAA,0xAD8B,0x9DE8,0x8DC9,
  1823.         0x7C26,0x6C07,0x5C64,0x4C45,0x3CA2,0x2C83,0x1CE0,0x0CC1,
  1824.         0xEF1F,0xFF3E,0xCF5D,0xDF7C,0xAF9B,0xBFBA,0x8FD9,0x9FF8,
  1825.         0x6E17,0x7E36,0x4E55,0x5E74,0x2E93,0x3EB2,0x0ED1,0x1EF0
  1826.     };
  1827.  
  1828.     unsigned short crc = 0;
  1829.  
  1830.     /*
  1831.      * updcrc macro derived from article Copyright (C) 1986 Stephen Satchell. 
  1832.      *  NOTE: First argument must be in range 0 to 255.
  1833.      *        Second argument is referenced twice.
  1834.      * 
  1835.      * Programmers may incorporate any or all code into their programs, 
  1836.      * giving proper credit within the source. Publication of the 
  1837.      * source routines is permitted so LONG as proper credit is given 
  1838.      * to Stephen Satchell, Satchell Evaluations and Chuck Forsberg, 
  1839.      * Omen Technology.
  1840.      */
  1841.  
  1842.     while(Size-- > 0)
  1843.         crc = crctab[((crc >> 8) & 255)] ^ (crc << 8) ^ (*Mem++);
  1844.  
  1845.     return((LONG)crc);
  1846. }
  1847.  
  1848. LONG
  1849. CheckSumSimple(Block,Size)
  1850. UBYTE *Block;
  1851. LONG Size;
  1852. {
  1853.     struct MXMBase *MXMBase;
  1854.  
  1855.     LONG i;
  1856.     LONG Sum = 1;
  1857.  
  1858.     UBYTE Tmp;
  1859.  
  1860.     for(i = 0 ; i < Size ; i++)
  1861.     {
  1862.         if(!(Tmp = Block[i]))
  1863.             Tmp = 1;
  1864.  
  1865.         if(!(i % 2))
  1866.             Sum += Tmp;
  1867.         else
  1868.             Sum ^= Tmp;
  1869.     }
  1870.  
  1871.     return(Sum);
  1872. }
  1873.  
  1874. VOID
  1875. CryptBlock(Block,Length,String)
  1876. UBYTE *Block;
  1877. LONG Length;
  1878. UBYTE *String;
  1879. {
  1880.     struct MXMBase *MXMBase;
  1881.  
  1882.     LONG Root = 26111967,Tmp,j = 0;
  1883.     LONG i;
  1884.  
  1885.     for(i = 0 ; i < Length ; i++)
  1886.     {
  1887.         Root = (((Root * 4253261) & 0xFFFFFF) + 372837) & 0xFFFFFF;
  1888.  
  1889.         Tmp = Root % 256;
  1890.  
  1891.         Block[i] ^= Tmp;
  1892.  
  1893.         if(String && String[0])
  1894.         {
  1895.             if(!String[j])
  1896.                 j = 0;
  1897.  
  1898.             Tmp ^= String[j++];
  1899.         }                
  1900.     }
  1901. }
  1902.  
  1903. LONG
  1904. IsASCII(c)
  1905. LONG c;
  1906. {
  1907.     struct MXMBase *MXMBase;
  1908.  
  1909.     if(c >= 1 && c <= 127)
  1910.         return(TRUE);
  1911.  
  1912.     if(c == 132 || c == 133 || c == 141 || c == 155)
  1913.         return(TRUE);
  1914.  
  1915.     if(c >= 160 && c <= 255)
  1916.         return(TRUE);
  1917.  
  1918.     return(FALSE);
  1919. }
  1920.  
  1921. LONG
  1922. IsPrintable(c)
  1923. LONG c;
  1924. {
  1925.     struct MXMBase *MXMBase;
  1926.  
  1927.     if(c >= ' ' && c <= '~')
  1928.         return(TRUE);
  1929.  
  1930.     if(c >= 160 && c <= 255)
  1931.         return(TRUE);
  1932.  
  1933.     if(c == '\a' || c == '\b' || c == '\n' || c == '\t')
  1934.         return(TRUE);
  1935.  
  1936.     return(FALSE);
  1937. }
  1938.  
  1939. LONG
  1940. ToUpper(c)
  1941. LONG c;
  1942. {
  1943.     struct MXMBase *MXMBase;
  1944.  
  1945.     if(c >= 224 && c <= 254)
  1946.         c -= 32;
  1947.     else
  1948.         c = toupper(c);
  1949.  
  1950.     return(c);
  1951. }
  1952.  
  1953. LONG
  1954. UStrCmp(s,t)
  1955. UBYTE *s,*t;
  1956. {
  1957.     struct MXMBase *MXMBase;
  1958.  
  1959.     LONG i;
  1960.  
  1961.     for(i = 0 ; i < strlen(s) ; i++)
  1962.         if(ToUpper(s[i]) != ToUpper(t[i]))
  1963.             return(ToUpper(s[i]) - ToUpper(t[i]));
  1964.  
  1965.     return(0);
  1966. }
  1967.  
  1968. LONG
  1969. Random(MaxValue)
  1970. LONG MaxValue;
  1971. {
  1972.     struct MXMBase *MXMBase;
  1973.  
  1974.     volatile UWORD *RasPos = (UWORD *)0xDFF006;
  1975.     LOCAL LONG RandomSeed = 0xDEAD123;
  1976.  
  1977.     RandomSeed = (((RandomSeed * (*RasPos)) & 0x0FFFFFFF) + 0xE15366F) & 0x0FFFFFFF;
  1978.  
  1979.     if(MaxValue < 0)
  1980.         MaxValue = -MaxValue;
  1981.  
  1982.     if(MaxValue)
  1983.         return(RandomSeed % MaxValue);
  1984.     else
  1985.         return(0);
  1986. }
  1987.  
  1988. struct Window *
  1989. FindFileWindow(Handle)
  1990. BPTR Handle;
  1991. {
  1992.     struct MXMBase *MXMBase;
  1993.  
  1994.     struct MsgPort        *Console;
  1995.     struct StandardPacket    *DosPacket;
  1996.     struct InfoData        *InfoData;
  1997.     struct Window        *ConsoleWindow;
  1998.     struct IOStdReq        *IOReq;
  1999.     struct MsgPort        *IOPort;
  2000.     struct FileHandle    *FileHandle = (struct FileHandle *)BADDR(Handle);
  2001.  
  2002.     if(!FileHandle)
  2003.         return(NULL);
  2004.  
  2005.     if(!IsInteractive(Handle))
  2006.         return(NULL);
  2007.  
  2008.     if(!(IOPort = (struct MsgPort *)CreatePort(NULL,0)))
  2009.         return(NULL);
  2010.  
  2011.     if(!(IOReq = (struct IOStdReq *)CreateStdIO(IOPort)))
  2012.     {
  2013.         DeletePort(IOPort);
  2014.  
  2015.         return(NULL);
  2016.     }
  2017.  
  2018.     if(OpenDevice("console.device",-1,IOReq,0))
  2019.     {
  2020.         DeleteExtIO(IOReq);
  2021.         DeletePort(IOPort);
  2022.  
  2023.         return(NULL);
  2024.     }
  2025.  
  2026.     IOReq -> io_Message . mn_ReplyPort -> mp_SigTask = (struct Task *)FindTask(NULL);
  2027.  
  2028.     if(((struct Task *)IOReq -> io_Message . mn_ReplyPort -> mp_SigTask) -> tc_Node . ln_Type == NT_PROCESS)
  2029.     {
  2030.         if(Console = (struct MsgPort *)FileHandle -> fh_Type)
  2031.         {
  2032.             if(DosPacket = (struct StandardPacket *)AllocMem(sizeof(struct StandardPacket),MEMF_CLEAR))
  2033.             {
  2034.                 if(InfoData = (struct InfoData *)AllocMem(sizeof(struct InfoData),MEMF_CLEAR))
  2035.                 {
  2036.                     DosPacket -> sp_Msg . mn_Node . ln_Name    = (BYTE *)&(DosPacket -> sp_Pkt);
  2037.                     DosPacket -> sp_Pkt . dp_Link        = (struct Message *)&(DosPacket -> sp_Pkt);
  2038.                     DosPacket -> sp_Pkt . dp_Port        = IOReq -> io_Message . mn_ReplyPort;
  2039.                     DosPacket -> sp_Pkt . dp_Type        = ACTION_DISK_INFO;
  2040.                     DosPacket -> sp_Pkt . dp_Arg1        = ((ULONG)InfoData) >> 2;
  2041.  
  2042.                     PutMsg(Console,DosPacket);
  2043.                     WaitPort(IOReq -> io_Message . mn_ReplyPort);
  2044.  
  2045.                     ConsoleWindow = (struct Window *)(InfoData -> id_VolumeNode);
  2046.  
  2047.                     FreeMem(InfoData,sizeof(*InfoData));
  2048.                 }
  2049.  
  2050.                 FreeMem(DosPacket,sizeof(struct StandardPacket));
  2051.             }
  2052.         }
  2053.  
  2054.     }
  2055.  
  2056.     CloseDevice(IOReq);
  2057.     DeleteStdIO(IOReq);
  2058.     DeletePort(IOPort);
  2059.  
  2060.     return(ConsoleWindow);
  2061. }
  2062.  
  2063. struct RastPort *
  2064. DeleteHiddenRPort(RastPort)
  2065. struct RastPort *RastPort;
  2066. {
  2067.     struct MXMBase *MXMBase;
  2068.  
  2069.     LONG i;
  2070.  
  2071.     if(RastPort)
  2072.     {
  2073.         if(RastPort -> BitMap)
  2074.         {
  2075.             for(i = 0 ; i < RastPort -> BitMap -> Depth ; i++)
  2076.                 FreeRem(RastPort -> BitMap -> Planes[i]);
  2077.  
  2078.             FreeRem(RastPort -> BitMap);
  2079.         }
  2080.  
  2081.         FreeRem(RastPort);
  2082.     }
  2083.  
  2084.     return((VOID *)NULL);
  2085. }
  2086.  
  2087. struct RastPort *
  2088. CreateHiddenRPort(Width,Height,Depth)
  2089. LONG Width,Height,Depth;
  2090. {
  2091.     struct MXMBase *MXMBase;
  2092.  
  2093.     struct BitMap    *TmpBitMap;
  2094.     struct RastPort    *TmpRastPort;
  2095.     PLANEPTR     Planes[8];
  2096.     LONG         i;
  2097.  
  2098.     if(!Depth || !Width || !Height)
  2099.         return(NULL);
  2100.  
  2101.     for(i = 0 ; i < Depth ; i++)
  2102.     {
  2103.         if(!(Planes[i] = (PLANEPTR)AllocRem(byte(Width) * Height,MEMF_CHIP | MEMF_CLEAR)))
  2104.             goto Quit;
  2105.     }
  2106.  
  2107.     if(!(TmpBitMap = (struct BitMap *)AllocRem(sizeof(struct BitMap),MEMF_PUBLIC | MEMF_CLEAR)))
  2108.         goto Quit;
  2109.  
  2110.     if(!(TmpRastPort = (struct RastPort *)AllocRem(sizeof(struct RastPort),MEMF_PUBLIC | MEMF_CLEAR)))
  2111.         goto Quit;
  2112.  
  2113.     InitRastPort(TmpRastPort);
  2114.     InitBitMap(TmpBitMap,Depth,Width,Height);
  2115.  
  2116.     TmpRastPort -> BitMap = TmpBitMap;
  2117.  
  2118.     for(i = 0 ; i < Depth ; i++)
  2119.         TmpBitMap -> Planes[i] = Planes[i];
  2120.  
  2121.     return(TmpRastPort);
  2122.  
  2123. Quit:    for(i = 0 ; i < Depth ; i++)
  2124.         FreeRem(Planes[i]);
  2125.  
  2126.     FreeRem(TmpBitMap);
  2127.     FreeRem(TmpRastPort);
  2128.  
  2129.     return((struct RastPort *)NULL);
  2130. }
  2131.  
  2132. VOID
  2133. EnableWindow(Window)
  2134. struct Window *Window;
  2135. {
  2136.     struct MXMBase *MXMBase;
  2137.  
  2138.     struct DisableSupport    *DisableSupport;
  2139.     struct DisInfo        *DisInfo;
  2140.  
  2141.     LONG i;
  2142.  
  2143.     if(!Window || !Window -> UserData)
  2144.         return;
  2145.  
  2146.     DisableSupport    = (struct DisableSupport *)Window -> UserData;
  2147.     DisInfo        = DisableSupport -> ds_Gadgets;
  2148.  
  2149.     if(DisInfo)
  2150.     {
  2151.         for(i = 0 ; i < DisableSupport -> ds_NumGadgets ; i++)
  2152.         {
  2153.             if(!(DisInfo[i] . di_Flags & GADGDISABLED))
  2154.             {
  2155.                 DisInfo[i] . di_Gadget -> Flags &= ~GADGDISABLED;
  2156.                 EraseGadget(Window -> RPort,DisInfo[i] . di_Gadget,0);
  2157.             }
  2158.         }
  2159.     }
  2160.  
  2161.     if(!(DisableSupport -> ds_WindowFlags & RMBTRAP))
  2162.         Window -> Flags &= ~RMBTRAP;
  2163.  
  2164.     RefreshGadgets(Window -> FirstGadget,Window,NULL);
  2165.  
  2166.     ClearPointer(Window);
  2167.  
  2168.     FreeRem(DisInfo);
  2169.     FreeRem(DisableSupport);
  2170.  
  2171.     Window -> UserData = NULL;
  2172. }
  2173.  
  2174. LONG
  2175. DisableWindow(Window)
  2176. struct Window *Window;
  2177. {
  2178.     struct MXMBase *MXMBase;
  2179.  
  2180.     struct DisableSupport    *DisableSupport;
  2181.     struct DisInfo        *DisInfo = NULL;
  2182.     struct Gadget        *Gadget;
  2183.  
  2184.     LONG NumGadgets = 0;
  2185.  
  2186.     if(!Window)
  2187.         return(FALSE);
  2188.  
  2189.     if(!(DisableSupport = (struct DisableSupport *)AllocRem(sizeof(struct DisableSupport),MEMF_PUBLIC | MEMF_CLEAR)))
  2190.         return(FALSE);
  2191.  
  2192.     if(!Window -> FirstGadget)
  2193.         goto NoGad;
  2194.  
  2195.     Forbid();
  2196.  
  2197.     Gadget = Window -> FirstGadget;
  2198.  
  2199.     while(Gadget)
  2200.     {
  2201.         Gadget = Gadget -> NextGadget;
  2202.  
  2203.         NumGadgets++;
  2204.     }
  2205.  
  2206.     DisableSupport -> ds_NumGadgets = NumGadgets;
  2207.  
  2208.     if(!(DisInfo = (struct DisInfo *)AllocRem(sizeof(struct DisInfo) * NumGadgets,MEMF_PUBLIC | MEMF_CLEAR)))
  2209.     {
  2210.         FreeRem(DisableSupport);
  2211.  
  2212.         Permit();
  2213.  
  2214.         return(FALSE);
  2215.     }
  2216.  
  2217.     NumGadgets = 0;
  2218.  
  2219.     Gadget = Window -> FirstGadget;
  2220.  
  2221.     while(Gadget)
  2222.     {
  2223.         DisInfo[NumGadgets] . di_Gadget    = Gadget;
  2224.         DisInfo[NumGadgets] . di_Flags    = Gadget -> Flags;
  2225.  
  2226.         Gadget = Gadget -> NextGadget;
  2227.  
  2228.         NumGadgets++;
  2229.     }
  2230.  
  2231.     Permit();
  2232.  
  2233.     Gadget = Window -> FirstGadget;
  2234.  
  2235.     while(Gadget)
  2236.     {
  2237.         if(!(Gadget -> Flags & GADGDISABLED))
  2238.             if(!(Gadget -> GadgetType & SYSGADGET))
  2239.                 Gadget -> Flags |= GADGDISABLED;
  2240.  
  2241.         Gadget = Gadget -> NextGadget;
  2242.     }
  2243.  
  2244. NoGad:    DisableSupport -> ds_Gadgets        = DisInfo;
  2245.     DisableSupport -> ds_WindowFlags    = Window -> Flags;
  2246.  
  2247.     Window -> Flags |= RMBTRAP;
  2248.  
  2249.     Window -> UserData = (BYTE *)DisableSupport;
  2250.  
  2251.     SetWaitPointer(Window);
  2252.  
  2253.     RefreshGadgets(Window -> FirstGadget,Window,NULL);
  2254.  
  2255.     return(TRUE);
  2256. }
  2257.